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0 Control system for a sannple preparation system. 

0 There is disclosed herein a system for control- 
ling an electromechanical system comprised of a 
number of electromechanical devices (e.g., 30, 32. 
34, 36, 38, 40, etc.) such as solenoid operated 
valves, motor, relays and other devices. The control 
system is comprised of a central processing unit 
(20) and control software plus suitable interface cir- 
cuitry to convert the digital data from the central 
processing unit into suitable control signals to op- 
erate the electromechanical devices. The control 
software allows users to either select preprogram- 
^ med sequences of commands to be executed by the 
^computer or to program unique sequence at either of 
^two levels of complexity. User access privileges may 
defined by the system manager such that certain 
00 users may not be allowed to program their own 
sequences, while other users may be allowed to 
[^program their own sequences only on the first level 
(^of complexity but not the second, while a third group 
gof users may be allowed to program on either of the 
programming levels or to run the preprogrammed 
^sequence as defined by the system manager. The 
two levels of programming complexity are a high 
level and an expert level where the command set on 



the high level consists of a plurality of commands 
each of which represents a macro. A macro is a 
collection of more detailed commands from the ex- 
pert level each of which represents a single opera- 
tion to be performed or a very small group of oper- 
ations by the electromechanical devices being con- 
trolled. Collections of these commands from the 
expert level are then put together in prearranged 
sequences to define predetermined functions of the 
system which may be performed by the single high 
level command representing that macro. The com- 
mand set on the expert level is therefore comprised 
of commands which define single operation such as 
valve openings and closures or relay openings or 
closures or the turning on of a motor or the turning 
off of a motor. 
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CONTROL SYSTEM FOR A SAMPLE PREPARATION SYSTEM 



Background of the Invention 

The invention pertains to the field of sample 
preparation systems, and more particularly, to the 5 
field of control systems for automated sample 
preparation systems. 

In many industrial production facilities and lab- 
oratories, there is a need to assay sample chemi- 
cals being prepared, analyzed or otherwise pro- io 
cessed. Such samples can come in many different 
forms. For example, they may be solid, liquid, two 
phase liquid or liquid-solid, and may or may not be 
highly viscous. Many types of assay systems re- 
quire liquid samples of known viscosity and con- /5 
centratlon. An example would be a liquid 
chromatography system. 

Obviously, there is a need for systems which 
can prepare many different types of samples for 
assay by such machines. Preferably such systems 20 
are automatic in the sense that after the user 
defines the type of sample preparation needed, the 
system automatically carries out this processing on 
samples until told to stop or until the sample prep- 
aration runs out of samples. 25 

Because of the many different types of sample 
formats and because of the many different types of 
sample preparation processes which exist for var- 
ious types of assays, there is a need for flexibility 
and programmabllity in a control system for an 30 
automated sample preparation system. The user 
must be provided the facility with which the particu- 
lar types of samples he or she intends to process 
may be prepared in a process for which the steps 
and sequence of steps are defined by the user. In 35 
this way the user can tailor the automatic sample 
preparation system for use in the environment pe- 
culiar to that particular user. 

Prior art automatic sample preparation systems 
exist in the form of robots. One particular type of 40 
robot of which- the applicants are aware is a robot 
manufactured by Zymark. These robots may be 
programmed to emulate all the movements a hu- 
man being would make in doing a sample prepara- 
tion process manually. Unfortunately, such systems 45 
are complicated and expensive and difficult to use 
because of the complexity of the mechanical ma- 
chinery and control computers and software need- 
ed. Thus, a need has arisen for a control system 
for a sample preparation system which is flexible, so 
programmable, easy to use, and relatively inexpen- 
sive to manufacture. 



Summary of the Invention 

In accordance with the teachings of the invent 
tion, there is provided a control system for a sam- 
ple prepara tion system to fully automate the sys- 
tem and allow users to program their own sample 
preparation procedures or to use preprogrammed 
procedures. Further, the control system allows a 
user acting as a system manager to define the 
necessary sample preparation procedures for var- 
ious types of samples likely to be encountered. 
Then the system manager may lock out users 
without system manager privileges to prevent them 
from altering the procedures while allowing such 
users to use the procedures programmed for them 
by the system manager. 

The control system of the invention allows user 
interaction with the system at three levels. At the 
first level, users may only give the sample iden- 
tification {in embodiments with no bar code read- 
er), the sample weight, the user initials, the date 
and time, the lot number to run, and the method of 
sample preparation to be followed. These methods 
of sample preparation will have been programmed 
into nonvolatile memory before the control system 
is obtained by the user or will have been previously 
programmed in by the system manager. 

The next level of user interaction is a high level 
language level. At this level, the user has various 
high level sample preparation system control com- 
mands at his disposal. Such commands include fill, 
mix, isolate, flush, dilute, inject, wash, etc. Each of 
these commands represents a predetermined se- 
quence of events which will be caused by the 
control system to happen in the sample preparation 
system when the particular command is executed 
in the course of performing a sample preparation 
procedure. The user at this level may string a 
series of such high level commands together into a 
sample preparation procedure and give it a name. 
Upon selection of a high level command, the con- 
trol system would prompt the programmer for any 
necessary variables or parameters, such as solvent 
selection, volumes, flow rates, mixing times, etc. 
Thereafter, by identifying the particular procedure 
the user wishes to "run, the same sequences of 
events may be caused to occur in the sample 
preparation system of the invention. Some of the 
high level commands have parameters which are 
accessible to the user and may be set to accom- 
modate the particular needs of the user. These 
parameters allow the user to control, for example, 
the amount of time a mixing step is carried out and 
the level of energy that is input to the mixer by the 
homogenizer. 
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The key to breaking up sample preparation 
procedures into a series of standard preparation 
steps, which can be chained or re*chained together 
in any useful sequence the user needs to accom- 
plish his desired sample preparation procedure, is 
to design the hardware and software control logic 
to allow each standard preparation step and each 
programmed series od standard preparation steps 
to be completely independent of the preceding or 
following step or series of steps. For example, 
upon completion of a dilution sequence or cup 
wash cycie, the diluent or wash solvent from a prior 
dilution or rinse should not be left in the instrument 
connecting tubings or modules. If there is such 
leftover solvent etc. it may inadvertently contami- 
nate the next dilution or wash with the wrong or an 
undesired solvent. If this undesired solvent could 
not be removed from all tubings and connections 
prior to the next step or sequence of steps, the 
next step would be restricted to using a solvent 
deemed compatable with the undesired solvent and 
thereby place undesired restrictions on the next 
step. 

At the most detailed level, the control system 
according to the invention provides the user access 
to and programmability for elemental operations of 
the type that are combined into the sequences 
which make up each high level command- Such 
elemental operations control individual events in 
the system such as the opening and closing of a 
particular valve, the turning on of the homogenizer. 
setjing of the power level of the homogenizer, etc. 
The user may program the system at this level by 
stringing names. These sequences may be thought 
of as user definable high level commands, or 
"macros," The user may string any number of 
macros together to form a procedure which may 
then be labelled and executed by referring to it by 
its name. 



Brief Description of the Drawings 

Rgure 1 is block diagram of the hardware of 
the control system and the system electromechan- 
ical devices which are read and controlled by the 
control system. 

Figure 2 is a schematic diagram of a typical 
sample preparation system which may be con- 
trolled by the control system of the invention.; 

Figure 3 is a schematic diagram of another 
embodiment of a sample preparation system which 
may be controlled using the control system of the 
invention. 

Figure 4 is a flow diagram of the overall 
control flow of the control system software. 

Rgure 5 is a flow diagram of the , various 
routines of the control system of the invention. . 



Figure 6 is a flow diagram of the create, 
modify and delete routine of the control system of 
the invention that the allows a user to create new 
sequences of commands at either of two levels of 
5 detail and complexity. 

Detailed Description of the Preferred Embodiment 

70 Figure 1 is a block diagram of the electronics 

of the control system in accordance with the teach- 
ings of the invention. The control system is cen- 
tered around a CPU 20 which could be a micropro- 
cessor, personal computer, minicomputer, or main- 

75 frame. Included within the CPU block is RAM 
memory for storing programs and data while the 
computer is running. Mass storage of data, pro- 
grams, and other information such as data bases, 
macros, user defined parameters, user defined 

20 sample processing routines, etc. is performed by 
mass storage unit 22. This unit could be a disk 
drive, tape transport, bubble memory, or any other 
bulk storage device with sufficient access speed 
and stor age capacity for the particular application 

25 ' involved. The user controls the computer 20 
through a terminal comprised of keyboard 24 and 
any type of display 26. 

The computer 20 is coupled to the various 
operating units in the sample preparation system 

30 by bus 28. This bus 28 is actually comprised of the 
address, data, and control signal lines of the com- 
puter 20. The bus is coupled to the ports for 
addresses, data, and control signals such as 
read/write, interrupt, ready, etc. on the various dri- 

35 vers and interfaces to the various functional ele- 
ments of the system, A more complete description 
of the sample preparation system for which the 
control system is intended to be used with is given 
in the following U.S. patent applications: 

40 "System for Preparation of Samples for Analysis" 
by Nau, Metzger, Orimm, Nohl.' serial number 
942.197. filed IZ'l 6/86 and "Sample Preparation 
Chamber with Mixer/Grinder and Sample Aliquot 
Isolation" by Nau. Metzger,; Grimm, Andre, and 

45 Nohl. serial number 942,198, filed 12/16/86. both of 
which are hereby incorporated by reference. 

Because the sample preparation system is in- 
tended for use in applications where either the 
samples will be brought into the system in cups or 

50 other containers with bar codes thereon or pumped 
into the cup through a 6-way valve, a bar code 
reader 30 is provided. This allows sample iden- 
tification data such as lot number and batch num- 
ber or other types of information pertaining to the 

55 incoming samples to be read from bar codes on 
the sample containers. This information may then 
be read by the computer 20 and stored in the 
mass storage unit 22 for later correlation with the 
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test results for that group of samples. Bar code 
readers are known and systems for moving sample 
containers by bar code readers so that the bar 
codes may be read are also known. 

In the preferred embodiment, a network inter- 
face controller 32 is provided to allow other com- 
puters and units on a network in the user facility 
such as terminals in the offices of scientists to 
offices, program the system or inquire as to the 
status of a particular sample preparation routine. 
Further, thie users may have access to the data 
which resulted from a particular sample run. For 
the network interface, this user can have the sam- 
ple data resulting from the assay of a particular lot 
of sample communicated directly into the data 
based in the other computer. 

A sample loader 34 functions to mechanically 
load samples arriving in containers. The particular 
design of the sample loader is not critical to the 
invention. It may load sample from one or more 
containers brought in by the user such as a tray of 
test tubes into the sample preparation chamber. In 
such a system, the sample from each test tube 
would be loaded into the sample preparation cham- 
ber, homogenized, diluted, and pumped through 
the assay system. At some point In the process, 
the sample would be identified either by the user 
keying in the identification data or by the bar code 
reader 30 reading the bar code on the test tube. 
The analysis data from the assay would then be 
stored in the mass storage unit 22 along with the 
corresponding identification data. The sample load- 
er would then load the sample from the next test 
tube into the sample preparation chamber, and the 
process would be completed for the sample from 
the next text tube. The design of such a sample 
loader is known and a commercially available unit 
which could be programmed to do the job would 
be the PRO/GROUP(tm) automatic assay machine 
available from Cetus Corporation in Emeryville, 
California. In alternative embodiments, the sample 
loader 34 could be any mechanical system which 
could take a cup like that used in the sample 
preparation chamber described in the patent ap- 
plications incorporated by reference and attach it to 
the cap. Any mechanical arrangement that can load 
a copy from a tray, conveyor belt, or carousel of 
cups into mechanical, sealing engagement with the 
cap of the sample preparation chamber described 
in the patent applications incorporated by reference 
will suffice. In some embodiments, this unit may be 
omitted altogether where sample is pumped in 
from a process stream or injected from a 6-way 
valve coupled to a sample vat The design of 
suitable sample loaders which will suffice to prac- 
tice this aspect of the invention is known. 

There is also provided electronic scales 36 in 
the preferred embodiment. These provide the fa- 



cility for weighing of solid samples or samples 
which are too viscous to pump into the sample 
preparation chamber where such samples are 
placed manually in the sample preparation cham- 
5 ber. The purpose of weighing such samples is to 
provide the user with an indication of the amount ol 
sample that has been placed in the sample prep- 
aration chamber. This is important because the 
samples will later be diluted with solvents or diluent 
10 to a user defined concentration. In order to do this 
properly, the weight of sample in the sample prep- 
aration chamber prior to addition of the diluent 
must be known. The electronic scales also provide 
an RS232 or parallel interface to the computer 20 
75 via the bus 28 so that the computer 20 may read 
the sample weight directly. The electronic scales 
may be eliminated in some embodiments. Without 
the electronic scales, if the user is dealing with a 
solid sample, the weight of sample placed in the 

20 sample preparation chamber must be keyed in by 
the user through the keyboard 24. A suitable elec- 
tronic scale 36 would be the Mettler AE160 avail- 
able from Mettler in Switzerland, 

A pump interface 38 provides the facility for 

25 the computer 20 to control the reversible pump 
used in the sample preparation chamber. The 
pump motor may be a stepper motor or a D.C. 
servo motor with an optical or other type of en- 
coder so that the pump interface circuit 38 can 

30 determine the position of the motor shaft at all 
times. Any type of motor with sufficient power and 
a system to positively control the pump shaft posi- 
tion or otherwise control the exact volume pumped 
will suffice. The pump interface obviously needs to 

35 be designed to interface between the particular 
type of pump motor and pump chosen and the 
particular type of computer 20 chosen. 

Figure 2 shows one embodiment of a sample 
preparation system with which the control system 

40 of the invention may be used. In this embodiment 
of the sample preparation system, the details of the 
structure and operation of which are as described 
in the patent applications incorporated herein by 
reference, two manifolds 39 and 41 are used as 

45 central terminals in what amounts to a fluid switch- 
ing multiplexer. Each manifold is coupled to various 
sources of material or various destinations in the 
system by a plurality of remotely controllable 
valves of which valves 43 and 45 are typical. These 

50 valves are typically solenoid operated or pneumati- 
cally operated under the control of the computer 
20. The purpose of the valve interface 40 in Rgure 
1 is to electrically translate the address, data, and 
control signals on the bus 28 into the proper elec- 

55 trical or pneumatic control signals to cause the 
proper valve in the system to assume the proper 
state. Such interface circuits are well . known for 
either solenoid operated valves or pneumatically 
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operated valves. For example, in the case of sole- 
noid operated valves, a motor controller chip can 
decode the address on the bus 28 and a data word 
Indicating whether the valve is to be opened or 
closed along with an active write signal. All these 
signals define an action desired for a particular 
valve. The address specifies which valve is to be 
operated, and the active write signal indicates when 
the computer 20 Is addressing a particular valve. 
The data word defines whether the valve is to be 
opened or closed or which of its multiple states to 
assume in the case of a multistate valve. 

The motor controller chip then activates a par- 
ticular output signal tine coupled to a solenoid 
driver such as a relay or a triac in such a manner 
as to cause the desired change in the state of the 
addressed valve. 

In the case of pneumatic valves, the address, 
data and control signals are decoded, as above, 
but the activated output signal from the motor 
controller chip is used to control a pneumatic pres- 
sure source to either apply pneumatic pressure or 
remove it from the particular valve addressed. 

Figure 3 shows the preferred embodiment of 
the sample preparation system with which the con- 
trol system in accordance with the teachings of the 
invention is used. The difference between this sam- 
ple preparation system and the sample preparation 
system of Figure 2 is that the manifolds 39 and 41 
and the associated valves such as valves 43 and 
45 are replaced with two rotary, multistate valves 
47 and 49. All other details of the system structure 
and operation are as described in the patent ap- 
plications incorporated by reference herein. Each 
of these valves has a central input pipe, pipes 51 
and 53 respectively, which is, connected to only 
one of a plural ity of output ports coupled to 
various sources of material or destinations in the 
system. A stepper motor or D.C. servo motor with 
optical encoder is used to drive the valve to its 
various states. In such an embodiment, the valve 
drivers 40 are the interface circuits needed to con- 
trol the stepper motors or D,C. servo motors. : . 

Integrated circuits for stepper motor control are 
commonly available. These circuits allow the com- 
puter 20 to send address and data words to the 
stepper motor controllers after enabling the chip 
with a proper chip select signal. The address sig- 
nals indicate which of the two rotary valves is being 
addressed, and the data words indicate the desired 
state in which the rotary valve is to be , placed. 
Typically, these integrated stepper motor control- 
lers have a command set. Typical commands in- 
clude commands to start and stop the controlled 
motor, commands to control the acceleration and 
deceleration profiles to use. commands to control 
the step number to which the controlled motor's 
shaft is to anci corTim3n*^s to ^ 



particular step at which the controlled motor's shaft 
is currently resident. Such chips may be used to 
control the stepper motors used to drive the rotary 
valves 47 and 49. In the preferred embodiment of 

5 the sample preparation system, these rotary valves 
47 and 49 are manufactured by Hamilton Company 
of Reno, Nevada. 

A typical D.C. servo motor which could be 
used to drive the rotary valves 47 and 49 is manu- 
re? factured by-Galil Motion Control. Inc. of Mountain 
View, California under the model designation DMC 
100. These servo motors have optical encoders 
which are used to provide feedback as to the shaft 
position to an interface board for the Galil motor 

15 plus motor controller chips for the other remotely 
controlled valves in the system. 

The RS232 port interface 42 may be a simple 
commercially available UART. The analyzer 48 
may be coupled to the computer 20 through the 

20 RS232 interface 42, or the network interface 32. 

The mixer 55 in Figures 1 and 2 may be an 
ultrasonic mixer such as is made by Sonic and 
Materials of Danbury. Connecticut under the trade- 
mark VIBRA CELL. In alternative embodiments, a 

25 high speed homogenizer could be used such as 
are made by Brinkman (shroud with a high speed 
rotating shaft therein rotating at 28,000 RPM, there- 
by creating a high shear in the liquid and disinte- 
grating particles therein). These units come with 

30 their own interfaces which may be used for the 
mixer interface 44. The basic control functions 
needed to control the mixer are the time of mixing 
and the power level which controls the amount of 
turbulence generated in the liquid. The mixer inter- 

35 face will be necessary electronics to interface with 
the mixer control circuit for the selected mixer. The 
details of how to interface the computer 20 to the 
interface circuits that come with the mixers will be 
apparent to those skilled in the art. A good refer- 

40 ence for interfacing computers such as the com- 
puter 20 to control external instrumentalities is 
Libes and Garetz, Interfac ing S-IOO/IEEE 696 
Microcomputers. , (Osborne, McGraw. Hill 1981) 
which is hereby incorporated by reference. An aux- 

45 iliary interface 46 is provided to allow the computer 
20 to control external instrumentalities, such as 
valves, solenoids, etc. which are outside the sam- 
ple preparation system- Typically, this interface will 
be digital, programmable ports such as are com- 

50 monly available in integrated circuit form where the 
characteristics of the ports may be set* by the user. 

Figure 4 is a high level functional diagram of 
the control program in the computer 20 which 
allows users to program and run their own se- 

55 quences of events to be performed in the sample 
preparation system under , control by the control 
system of the invention. The control program runs 
: the user defined sequences by. generating the 
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proper control signals to cause the desired se- 
quence of events to occur in said sample prepara- 
tion system. 

At power up in sonne embodiments, the system 
will perform a self test to verify the integrity of the 
system prior to performing any operations. T?iis is 
symbolized by block 50. Next, the system displays 
a user identification request/sample identification 
request screen as symbolized by block 52 
(hereafter references to blocks will be understood 
to mean reference to those source code computer 
instructions organized as routines and subroutines 
in the control program which perform the function 
indicated in the block referred to). The purpose of 
block 52 is to supply query fields on the terminal 
or display 26 for the user to respond to by filling in 
the requested data via the keyboard 24. The re- 
quested data is to identify the user, to give various 
data items regarding the sample, to give the date 
and the time and to identify the sequence the user 
desires to run. The data items regarding the sam- 
ple to be filled in may Include the sample ID, the 
sample weight, and the lot number from which the 
sample came. The user identification number is 
used by the control system to determine the ac- 
cess privileges which the user has. 

The control system has three levels of access. 
At the simple level, the user may only run se- 
quences that have been previously programmed by 
the system manager. At the high level, users hav- 
ing access privileges at this level may program 
their own sequences of events using commands 
from a high level language command set. These 
commands represent predetermined building block 
functions which are necessary to perform sample 
preparation. Such building block functions include: 
mix, isolate known sample volume, flush the re- 
maining liquid out of the sample preparation cham- 
ber, release the isolated sample volume, dilute the 
sample volume with a user defined volume of a 
user identified solvent, pump the diluted sample to 
the analyzer, etc. At the expert level, users having 
access to this level may program their own 
"macros" using system commands at a more de- 
tailed level than the high level commands identified 
above. These more detailed commands allow the 
user to control the system at a finer level of resolu- 
tion. For example, a typical command may be 
"open valve #1 " or "rotate multiport valve #2 to 
state #3." Each of the high level commands is 
comprised of a predetermined sequence of expert 
level commands. 

The identification data entered by the user in 
block 52 via the keyboard 24 is stored on the mass 
storage device 22 in block 54. Next the system, in 
block 56, determines the access privileges of the 
user by comparing the user ID to the list of ID 
numbers supplied by the system manager for each 



level of access. 

Block 58 represents the step of displaying an 
option menu by which the user, by selecting an 
option, may express a request regarding what the 
5 user wishes the system to do or what the user 
desires to do with the system. Typical menu op^, 
tions include: start, status, method, directory, re- 
port, load, print, system, control, defaults, functions, 
and options. The meaning of these options will be 
70 explained more below. 

After the user has entered his or her request 
via the keyboard 24, the control system verifies 
that the user has the access privilege necessary to 
perform the function requested in block 60. If so. 
15 the control system branches to the routine which 
performs the desired function or provides the fa- 
cility requested by the user in block 62. If the user 
does not have the required access privilege, a 
message to that effect is displayed in block 64, and 
20 processing proceeds to block 58. 

Referring to Figure 5 there shown a How chart 
of the various routines which are available for se- 
lection by the user in Step 58 of Figure 4. The first 
routine, symbolized by block 64, is a routine which 
25 allows the user to create, modify, or delete an 
operation sequence. An operation sequence is a 
collection of commands which are executed by the 
central processing unit in order to generate control 
signals to control the electromechanical devices in 
30 the system. The control signals cause them to 
perform a physical sequence of events to process 
a sample where the sequence is defined by the 
particular sequence of commands in the program. 
The routine of block 64 allows the user to program 
35 his own sequences of commands at either of two 
levels of complexity. At a first level of complexity, 
the user may have access to a set of commands 
each of which represents a specified function that 
the system is capable of performing and each of 
40 which causes a predetermined sequence of events 
to occur in the proper order to cause the physical 
event symbolized by that command. The second 
level of complexity allows the user to have access 
to a set of commands which are very detailed. 
45 These commands each represent a single actiori or 
a very small group of actions that one or a very 
small group of electromechanical devices performs. 
Essentially, the commands at this second level' are 
the component commands which are grouped to- 
50 gether in a predetermined sequence to implement 
one of the commands on the first level. Essentially 
then, the commands on the first level are macros 
which are collections of commands on the second 
level but arranged in a predetermined sequence for 
55 each particular command on the first level. 

Block 66 is a routine which allows the user to 
print a hard copy of a sequence which has been 
programmed by the user. 
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Block 68 is a routine which allows the user to 
load a predetermined sequence, i.e., a method of 
sample preparation which has been preprogram- 
med by the system manager. The system manager 
is a user which has access to all functions of the 
system. That is, the system manager can define 
the access privileges of all the other users on the 
system, and he may program preprogrammed se- 
quences which are available for certain users who 
are not allowed to program their own sequences. 
Block 68 is the routine which the user calls when 
one of these preprogrammed sequences is to be 
loaded. 

Block 70 is a routine which allows the user to 
print a directory of all the methods or sequences 
which are stored in the system and available for 
execution. Block 72 represents a routine which 
allows the user to start the selected sample prep- 
aration routine and which causes the CPU to begin 
generating the control signals which cause the 
physical actions to occur. 

Block 74 represents a routine which displays 
the system status. Block 76 is a routine which 
allows the user to print the system status which is 
displayed in the routine of Block 74. 

Block 78 is a routine which allows the user to 
change the system default parameters. Typically, 
each command on either the first or second pro- 
gramming level will have parameters or arguments 
associated therewith. These arguments are variable 
values which define the specific manner in which 
the command is to be performed. For example, a 
mix command may have as an argument the power 
level at which the mix is to be performed, the time 
duration of the mix, and the RPM that the mixer is 
to use. 

The routine represented by block 80 allows the 
user to have access to the various valve and relay 
controls such that the user may open certain valves 
or close certain relays manually by causing the 
CPU to generate the proper command to cause the 
proper operation of the valve, relay or other elec- 
tromechanical device. 

Block 82 represents a routine which allows the 
system manager to create new system functions. 

Block 84 is a routine which allows the user to 
print a report. Such reports may consist of reports 
of user activity, the sequences which have been 
run. the volume of activity for a particular se- 
quence, and so on. Block 86 is a routine which 
allows the user to change the print parameters. 
This routine allows the format of the report to be 
set such as margins, spacing, headers, and other 
types of formatting commands common to 
database report routines. 

Block 88 is a routine which displays for the 
user the system options which have been elected 
and which are operable. 



Block 90 is a routine which allows the user to 
use the print mode of the system for various func- 
tions. 

Block 92 is a routine which allows the system 

5 manager access to certain system functions. 

Referring to Figure 6 there is shown a nnore 
detailed flow diagram of the create, modify and 
delete routine of block 67 in Figure 5. The first step 
when the user elects to program his own sequence 

10 is to inquire whether the user wishes to program on 
the first level or on the second level noted above. 
- The first level will be called the high level for 
purposes here, and this level will provide the user 
access to the macro commands. The second level 

75 will be called the expert level and grants the user 
access to the detailed commands which essentially 
allow the user to define each valve opening and 
closing and each operation of each motor or other 
electromechanical device individually. The levels 

20 are named the high level and the expert level for 
purposes of indicating the relative amounts of skill 
needed to program on these levels. Programming 
at the high level is similar to calling subroutines or 
macros on any computer. Programming on the 

25 * expert level is similar to programming in source 
code and requires a some programming skill and a 
great deal of knowledge regarding the hardware 
aspects of the system being programmed. 

The process of determining which level the 

30 user wishes to have access, to is symbolized by 
step 94. This step also determines the user's ac- 
cess privilege by checking the user's identification 
code and comparing it to a table or other such 
database defined by the system manager which 

35 indicates which users have access to the high level 
command set and which users have access to the 
expert level programming command set. If the user 
elects to program at the high level, the next step is 
symbolized by block 100. In this step, the user is 

40 prompted for a name for the sequence which he is 
about to program. After the sequence has been 
named, step 102 is performed wherein the user 
selects the first high level command which is to be 
executed in the sequence. In some embodiments, 

45 the list of high level commands from which the 
user may choose may be displayed and the user 
may simply choose a command by positioning the 
cursor on the proper command and pressing a 
select key. In other embodiments, the user may be 

50 required to know the high level commands and 
select the particular command desired by an acro- 
nym. 

As noted above, most commands have certain 
parameters or arguments. Step 104 represents the 
55 process of prompting the user for parameter values 
for the command selected in step 102. Each com- 
mand will have default parameters which are set by 
the user in step 78 of Figure 5. If the user wishes- 
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to use the default parameters, he need do nothing 
in step 104. If however, the user wishes to define 
the specific nnanner in which the particular com- 
mand is to be executed, then the parameters for 
that command may be adjusted in step 104. 

After step 104 .is performed, the control soft- 
ware causes the central processing unit to prompt 
the user to determine if the command just defined 
is the last command in the sequence. This step is 
symbolized by block 106 in Figure 6. If the user Is 
done picking commands, the processing proceeds 
to step 108 where the method is stored in perma- 
nent storage such as on a floppy disk or hard disk. 
Processing then returns to the main menu symbol- 
ized by block 58 in Figure 4. 

If the user is not finished programming, then 
processing proceeds from block 106 to block 110 
where the user is prompted to select the next high 
level command in the sequence. Processing then 
proceeds to block 112 where the parameters for 
the command selected in block 110 are displayed 
and the user is prompted for new values for these 
parameters. If the user responds with new param- 
eters, these are stored with the command as a 
permanent part of the sequence being pro- 
grammed. After step 112 is performed, step 114 is 
performed to again to test for completion of pro- 
gramming. Step 114 represents the process of 
prompting the user to determine if the user is done 
programming. If he is, then processing continues at 
step 108 as described above to store the method. 
If the user is not done programming as determined 
in step 114. then processing returns to step 110 
where the user is prompted to select the next 
command in the sequence. 

Returning again for a moment to step 94 in 
Figure 6, if the user is determined to have no 
access to either the high level or expert level 
programming command sets, then step 94 vectors 
processing to a step 96 wherein a "no access 
privilege for selected lever message is displayed 
on the terminal. Thereafter, in step 98, processing 
is returned to the main menu of step 58 in Figure 
4, 

If the user selects the expert level for program- 
ming, a similar sequence of events occurs starting 
with step 118, There the user is prompted to name 
the sequence he is about to define. The next step, 
118, prompts the user to select the first expert 
level command to be executed in the sequence. 
Then, in step 120, the user is prompted to select 
new parameters for the expert level command se- 
lected in step 118. Again, the expert level com- 
mands also have default values which may be 
altered by the user in step 120, Step 122 repre- 
sents a test to determine if programming has been 
completed. If it has, then step 108 is performed as 
described above, if programming is not completed. 



processing proceeds to step 124. There the user is 
prompted to select the next expert level command 
and define the parameters for that command. 

Step 126 represents a test to determine wheth- 

5 er the user is done programming. If he is. then step 
108 is performed and control is returned to the 
main menu. If the user is not done programming, 
then control returns to step 124 where the user is 
prompted to select the next expert level command, 

70 Appendix A is a listing of the source code for 

the preferred embodiment of the invention. This 
source code runs on an IBM PC running the Forth 
and DOS programs. 

Although the invention has been described in 

15 terms of the preferred and alternative embodiments 
detailed herein, those skilled in the art will appre- 
ciate that many modifications may be made. Ail 
such modifications are intended to be included 
within the scope of the claims appended hereto, 

20 

Claims 

1. A control system for an apparatus having a 
25 plurality of electromechanical devices controlled by 

said control system, said control system having a 
CPU (20) wherein the improvement comprises soft* 
ware means (Rgures 4, 5, 6) for allowing a user to 
cause said CPU to run any of a plurality of fixed 

30 command sequences or to program one oi' inore 
new sequences using commands at any of a iilural- 
ity of complexity levels where at least one com- 
plexity level is populated by commands which are 
macro commands in the sense that each is a 

35 concatenations of commands from at least one 
other of said complexity levels. 

2. The apparatus of claim 1 wherein said soft- 
ware means includes means (Figure 6) for allowing 
a user to program sequences at a first level with 

40 macro commands each of which causes a pre- 
determined sequence of events to be performed by 
said electromechanical devices. 

3. The apparatus of claim 2 wherein said soft- 
ware m^ans is also for allowing said user to modify 

45 the parameters of each command from default pa- 
rameters where said parameters characterize some 
physical characteristic of the sequence of physical 
events that will be caused by execution of said 
command by said CPU. 

50 4. The apparatus of claim 3 wherein said- Soft- 

ware means includes means for allowing said user 
to program a new sequence of commands to cause 
said electromechanical devices to perform at least 
one physical event where the commands available 

55 to the user are more primitive than the commands 
on said first level in the sense that each command 
represents a predetermined sequence of events 
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which is less complex than the predetermined se- 
quences of events caused by the commands at 
said first level. 

5. The apparatus of claim 4 wherein said soft- 
ware means includes means for allowing each user 
to be identified by a code and further Includes 
means for allowing at least one user to define the 
access privileges of all the other users and encode 
this access privilege data such that said software 
means can determine from said user identification 
code the access privileges each said user has, 

6. The apparatus of claim 5 wherein said soft- 
ware means includes means to allow a first group 
of users to have access to and to run only said, 
fixed sequences of commands and to allow a sec- 
ond group of users to run any of said fixed se- 
quences of commands or to program a new se- 
quence using only the commands at said first level 
and to allow a third group of users the ability to 
program a new sequence using commands at ei- 
ther of said first level or said second level or to run 
any of said fixed sequences. 

7. A control system for an apparatus having a 
plurality of electromechanical devices comprising: 

computer means for allowing a user to run 
fixed sequences of commands or sequences of 
commands the user programs himself and for gen- 
erating control signals during the execution of 
these sequences which are coupled to said electro- 
mechanical devices and which cause these devices 
to perform the sequence of physical . operations 
defined by the sequence being run; and 

control means for said computer means for 
allowing said user to select and run any of one or 
more fixed sequences of operations or to program 
a new sequence at either of two levels of complex- 
ity. 

8. The control system of claim 7 wherein said 
control means includes means to allow a user to 
program a new sequence using commands on a 
first level each of which represents a specific func- 
tion of the system involving one or more physical 
actions of one or more of said electromechanical 
devices or to program a new sequence at a second 
level using commands each of which represents a 
single operation by a single electromechanical de- 
vice. 

9. The control system of claim 7 wherein said 
control means includes means to program a new 
sequence of operations using commands at either 
of a first level or commands at a second level 
wherein the commands at said first level each 
represent one physical operation by one electro- 
mechanical device and wherein the commands at 
said second level each represent a predetermined 
sequence of said commands at said first level. 



10. The control system of claim 9 wherein said 
control means includes means to block access by 
certain users to commands for programming at 
either said first or second levels or both. 



70 



75 



20 



25 



30 



35 



40 



45 



50 



55 



9 



0 275 826 



APPETOIX A 



SOFTWARE LISTING INDEX 

PREP, LOAD, TIME, * 351 330 321 324 327 333 348 402 408 
ERRORS FUNCTIONS 

WINDOWS 354 357 360 363 

FILE SYSTEM 411 414 417 420 423 

SCREEN SUPPORT 378 381 384 337 390 405 

NORMAL SCREENS 393 399 429 

HELP ^y. HELP SCREENS 426 

EDITOR S< EDIT SCREEN 336 339 342 

SNAPSHOT 366 

TASK SUPPORT 438 441 444 

STATUS TASK 447 450 

DEVICE STATUS DISPLAY 462 465 468 471 474 477 

STATUS BACKGROUND 453 456 459 

CONTROL TASK 501 504 507 510 

METHOD EXECUTION 513 

DEVICE CONTROL 528 531 534 537 546 549 552 555 558 

CONFIG TABLES 561 621 

HELP SCREENS (DATA) 630 633 636 639 
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This block loads the entire Satple Preparation Sestet, 
It loads all other load blocks that lake up the systei. • 
A Hcrd called SP (cr sp) Hill cause this block to be loaded. 

FfJEP is the tain entry point to the syste«, so after a power up, 
juEt tvpe 'SP PREP' to load arid run the systef. Hote that 

- SP Hill perfcrft an 6 DRIVE before loading, so you don't have 
to switch drives yourself. 



1 
2 
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4 
5 

7 

a 

9 
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U 
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\ SAnPlE PREPARATION SYSTEM LOAD BLOCK 

EMPTY : TRUE 1 : : FALSE 2 ; : KULL 8 

BS LOAD \ function key execution 

33 LOAD \ screen windoMS 

45 LOAD \ key functions 

?S LOAD \ file systea 

117 LOAD ' \ task support 

246 LOAD * \ Canfiquration tables 

12o LOAD \ status task 

IBB LOAD \ control task 

57 LOAD \ screens 

61 LOAD \ keycade tables 

89 LOAD \ Join this with PREP coscand load 

37 LOAD \ tain cosiand interpreter 
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6 ( Sasple Prep Task definitions ) 
The Status task updat-s the stitus header Nhen things change, I 



3SC TERSIKAL PSTfiTUS 



The Control tasfe is responsible for executing the user's aethod 3 PSTATUS CONSTRUCT 
to control the saaple preparation hardware. It is a 4 
background type cast, tihich' -aeans that it can not use any 5 2S5« TERKIKAL CuNTROL 
jrintiri'^ Mords. Error aesssges iust be passsd back to the t COKTROL GON2TEUCT 
User task for display, ^7 

B ; HALT ACTIVATE STilP ; 
? 

10 \ fijB7 PS7ATUS 'TYPE KIS ; 

11 V 'TAB 9 PSTATU3 'TAB HIS ! 
12 

13 
14 
15 



2 

9 

1 32 COHSTAMT RBUFF-SIZE \ ItHOTEiU HUST be a power of 2 

2 CREATE RPJFF RBUFF-SIZE ALLOT P.BliFf RBUFF-SIZE mSE 
Z VARIABLE HRPTR VARIABLE RCODNT 

4 

5 CREATE SBUFF h ALLOT 

6 VARIABLE SBCTR VARIABLE SBPTK 
7 

8 1B432D0. 1 16 Ht/ 2C0K5TAJ{T DIVIDEND 
? HEX : SET-HAMILTCH-BftUD 

10 OIVIDEKC R-OT tif DUP 

11 83 3FB OUTPUT 3F8 OUTPUT 

12 X 3F9 OUTPUT 3 3FB OUTPUT 

13 3 3F9 aUTFUT BB 3FC OUTFIT 

H 3F3 IHPUT DROP 3FA IKPUT CROP ; OECIKAL 
iZ 9680 SET-HA»ILTQN*BAUD FQR8ET DIVIDEND 
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fl \ Safiple Prep precoipile load block 
1 

2 ; 4P S ♦DRIVE ; \ fiUows loadina other local blocks 



4 10 +F' LD.-.D \ Pre coepile prelisinaries and rter.eral tcol= 



Tnis is thE title that shOHS up in .GRIVES 
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10 
11 
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\ 15 LQAO 
\ 12 LGA& 

1 f? LOAD 

2 +P 4 +F THRU 
S 8 THRU 
27 +P lOfiO 



\ Cloct and calander wris for RPSC15 cWp 
\ Set Forth' s tiie and date 
\ Control and status tasfc definitions 
\ Interrupt h buffers for Ha*iltop. valves 
\ Interrupt driven feeyboard input buffer 
\ Error handlino basics 
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SKADun far configurations 



SP leads the satple prep software. Type PREP to ran. • 



(t*) run tifte code for I", returns address of counted string. 
i* coapiles an inline string; Mill return it's address. 
IliVERT returns the ones coipleient of a value. 
This is the title that shoHs up in .DRIVES 



\ Precoipile prelioinaries and general tools 

: F2 I SCR +1 SCR J L!3T ; \ Useful functions; 

: Fl -I SCR +1 SCR < LIST ; 

; F? HEX HEX • ; 

5 : F4 DECIHhL .* CECIKfiL * } 

7 HEX IFIF KIDTK ! DECIKri \ 32 Char definitions 
8 
9 



u 

12 
13 

15 



: SP 8 DRIVE 36 LOnO ; \ Sesple Prep Systet load coHand 

: ASCIK 32 *fOR5 1* Ca \ \ Convert nert char to ascii case 

: EIHARY 2 EfiSE ! ; 

: (fl I ?Rfl ; 

: r CCSPILE it') 34 STRIK5 ; IKKECIATE 

: IKVERT ( n — nM HEBATt I- ; 
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1 

2 CODE SENP>S£R HEX 

3 3Fe I 2 HOV SBPTE « «0V 

4 K ) 0 MOV 121 OUT SBPTR IHC KfilT J«P 



6 VARIABLE ZPUX^ 6 CALLER 1 

7 ASSEMBLER BESIK B PUSH 2 PUSH H PUSH OS fUSKS 

8 ZERO ( e KOV e OS L5G 

9 3FM 2 KOV (21 IK 3FB I 2 MOV 4 IB 0 TEST 8 
IB IF ( output interniptl 

11 IS SEG SBCTR DEC 8= 

12 IF IS SEB CALLER H fiOV KAKE * « J RflV 

13 ELSE IS SES SBPTR I ICHS LCDS 6 

14 IS SEG SBPTR I XCH6 (21 OUT 

15 THEN 



HEX 

ELSE ( input interrupt) (21 IN 
IS SEG KHPTR K tlOV 
15 SE5 6 PiUFF M] ttOV 6 
• K INC. R&UFF-SIZE 1- I H AKD 
IS SEB H ^;aPTR «QV 
IS SEB • RCOUHT IHC THEH 
2S FOPS H POP 2 POP Q POP 
DC INTERRUPT 

GECIKAL 



S 
1 

2 CREATE KB30FF 32 ALLOT 

3 VARIABLE KBRPTR 

4 VARIABLE KBHPTR 
5 

6 CODE )riEUFF HEX 

7 IS SES *:B«PTR I «0V 1 IHC IF n AHD 

8 IS SEB f3RPTR 1 CKP B= HOT 

9 If I K HOV IS SEB 8 KBBUFF M) MV B 

18 IS SEB 1 KsmR no*^ 

II THEH RET 

12 

13 

14 

15 



a 



328 



e 

] CODE spascii 
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I e nov 

IS SE6 

e H flov 

a 2 KOV 
IF 

IF 

THEti 83 

If e 

ELSE 
IF 



7S IB 



7F t a AHO 
SHIFT 8 ftOO B 
IS SEB r.EYS I- 0 )I0V fi 
28 «B 2 OR fci IB 2 CKP e< HOT 

2 CKP 8< 
IS SE6 LCCt; 9 ICR B 
I i m e= NOT 
G OR e= IF IS SES 
M OR 0= KOT 
QB IB e CKP NOT 

IF IS SEE ' yrmff 

IS SEG 20 K LOCK lOR 
ELSE IS SEG 53 tB SHIFT MQV 
TH£« THEH RET 
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fi « SHIFT RCV THEK 



JfiP THEN 
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86 IB G GR 61 OUT 
46 tB 1 CKP 6= If 
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2 CODE (EKEY?) 

3 KBRFTR B JiOV KFKFTR B SUE 8 PUSH KEXT 
4 

5 : EKEY? 

6 PfiUSE (BKEY?! ; 
7 

8 HEX 

9 : (BUY) 

16 BEGIK BKEY? UNTIL 

11 KBRPTE 5 1* IF AHD DUP rJEUFF + C9 SHfiP KBRPTR 

12 OEClttAL 
13 

14 ' (BKEYI 2- • (KEY) ! 

15 • EIIT 2- • (KEY) 2+ 1 



333 



12 



Rsad the year and set the FORTH svstea year., 
fvead the tiie and set FORTH' s clock. 

The KOMTHS array is used to convert the current day and lonth 
into FCRTH'5 internal date format. Refer to scresns 30 "and 
31 in the Level I listino. 

SETEATE oets the current day and ionth froc the battery clock 
on the AST card and sets FORTH's date. 

Initialise FORTH's day, date, and tiie froa the AST 

card cloclc. 
Sacple prep 



e \ Cloct - Set FORTH'S tiie and date 

I 

2 

3 : SETYEAR YR3 IIZZ + A.D. ; 

4 : SETTI«E HR5 IBO t -m ♦ 9 F5T ; 

tr 
J 

6 CREATE HOKTHS 

7 B , B , 31 , 59 , 93 , J23 , 151 , 181 , 212 , 243 , 

8 394 , 334 , 367 , 
9 

13 : SETDATE 0Y3 fiOJ 2t KOHTHS + J SB OVER < LEAP 5 1+ • 

11 JAtig 3 * + «0H ; 

12 

13 SETYEAR SETTIHE SETCATE 

14 FORGET 
15 
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These definitions are (or the AST SitPac Plus card with the 

Ricoh RP5C15 clock chip. 
aK3 reads a value Iroa one of the AST card clock registers. 



Head the Yezr 
Konth 
Cay 
Hour 
Minute 
Second 



fro* the Battery clock. 



8 
1 
2 
3 
4 

c 
u 

6 
7 
8 
? 

le 
11 

12 
13 
14 
15 
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\ AST Card Clock Calender tfords - For RICOH RP5C15 chip 
\ ( for neHer AST Six Pack Plus cards) 

HEX 

: CLK3 ( a 



n ) 
DECIHAL 

I 2i;GTS ( d fi I 



: YR9 

: K09 

: DY9 

: HR} 

: m* 

: SC3 
EXIT 



( — 



yr 1 

10 ) 

dy ) 
hr ) 
ftn } 

sc } 



2C3 CyTPDT 2C1 INPUT SF AND ; 

uur LuNff 4 Onnr i" LLr.f ▼ | 

12 2DGTS ; 
IB 2D5TS ; 
8 2SGTS ; 
5 2DGTS ; 
3 2D6TS ^ 
1 2CGTS ; 



1 4 



B 


\ AST Card Clock 


Calender Hords - For Kational 


1 


\ ({or older AST 


Six Pack Plus cards) 


2 


HEX 




3 


: CLK3 ( a — n 1 


2CB + IKPUT ; 


4 


DECIKAL 




5 


: CLVAL (a — n) 


CLKJ DUP IW IB t SHAP 15 AND + ; 




: YR» ( — yr ) 


IB CLK) 69 ^ ; 


7 


: K05 ( — AO ) 


7 aVAL ; 


8 


: 0Y3 ( ~ dy ) 


i aVAL ; 


9 


: KR3 ( — hr ) 


4 CIVAL ; 


IB 


: nW { — in ) 


3 aVAL ; 


11 


: SC3 ( ~ sc ) 


2 CLVAL ; 


12 


EXIT 




13 






14 






15 
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'QUIT is a user variable in each Usic that contains the address 

to etectute Hhen an error occurs. 
The error handler for each tasik should process the error if 
possible: saving state inforiation for debuoQing (like SCR, 
)IH, etcJ; and re-enter tha f.gin task loop to allow recovery. 
This Mill prevent systes locliups on errors. 
Iriitialiied to GulT for tigm {norial FGRTK systei error response! 
£EF;Of;S is executed when ABORT is called. It ^ets the error 
routine address for this task and starts interprstino it, 
rtouify the ABORT routine in FGRTK to vector to ERRORS instead of 
QUIT. 

tiuttuituin;uutntttuunuttttuuimttnnuuut;tsn 

SYSTEM NOTE: If the FORTH systai is ever recoapiled, the ABORT 
routine itself should be codified to isplczent the above 
behaviour. It is not Qood practice to poke in coue chanoes 
after the systes is up and runnino. 



e \ Systei Error Handling 
1 
2 
3 



' QUIT 'QUIT ! 
: QUITS 'QUIT 3 >R ; 
• GUITS ' fiBORT 7 + ! 



6 
7 
8 
9 
16 

n 

12 
13 
14 
15 



' (aborfl "ABORT ! 

: ABORTS 'fiBQRT 5EXECUTE i 

' ABORTS 2- ' aborf 2+ i 

CODE RESET U R «GV \ dear the return stack 
S5 Ul S nOV \ clear paraieter stack 
8 6 SUB e PUSH \ put a safety B on stack 
NEXT 

\ copy of definition in screen iB level 4 listing. 
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0 

4 
t 

2 
3 

c 

-J 

6 
7 
B 
9 

le 
11 

12 
13 
14 
15 
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I 



J 
6 
7 
8 
9 
IB 
II 
12 
13 
14 
15 
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, rh«^vde^inilions are the saie as screen 77 in FORTH level 
.3 listing, except that FUPDATE is used in place of UPDATE 
Mhen writing to a disk file. 
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£0L and PUT are the siae eicept for FUPDATE. 



.ItODE displays the current editing code on the bottoi line of 
editing HindoH 

IDISFLY types the contents of the nth screen of the current file 

lEDIT is called when leaving the editor to close the file, put 
the HifidoN back in order, and rebuild the current screen. 
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cSCape sets the exit flag so «'ll leave the editor. 



(edit) is the editor coHand interpreting loop. It gets key 
strokes, updates the cursor position, and executes function 
keys until the exit flag is set 

>EDtT throws 2 return addresses away off the stack and reenters 
the editing loop. 



IB 0 275 826 

6 \ File Editor - Line I character operations 

1 67 :K LHQLD CLAD 'LINE C/L CrtOV'E ; 

2 : (DUPL) LINES ?DUP IF 8 00 HI- MtOK LOOP THEH ] 

3 M jK IHSL (DUPL) LIKE CLRL .fLCCK-; 

4 63 :K CUPL (DUPD -BLOCk"; . 

5 64 :K SPLIT LINES IF IDUPL) -LINE CLAD C/L ♦ 

6 COL BLANK. LINE ♦L .BLOCK Lt ! THEM ; 

7 62 :K XL LHOLD LIKES ?DUP IF 8 00 LINE MI* KLUO LOOP 

8 THE!,' L/S LAD C/L BLANK .SLOCK ; 

9 B3 :K XC <AODR DUP DUP 1+ 3HAP COLS I- CKOVE 
to BL SWAP COLS I- + C! FUPDATE .LIHE ; 

11 : INSERT ( c) DUP EMIT «CD£ CS IF COLS t- IF (ADDR DUP 

12 DUP 1+ COLS 1- <CHOV£ CJ FUTDATE .LIKE ELSE <AD&?: C 

13 THEH ELSE <ADDR C! ♦C TriEK FUPDATE ; 

14 : xOELETE -C GO MODE C3 IF IC ELSE BL <ADDR C! FUPDATE 

15 SPACE THEN ; 



19 

8 V File Editor - Display function keys 

\ 7^ :< EQL CLAD C/L -TRAILING OOP IF 1* THEN 63 KIK Ct ! 

2 DROP ; 

3 : ?VISIBLE ( c - c t) DUP 31 127 KITHIN ; 

4 63 :K PUT C/L 6 00 'LIKE I + C3 7V15I3LE NOT If 

5 2R> 2DF:aP BELL EXIT TH£?{ m? LOOP 

6 KDI/E C3 DU? IF (DUPL) THEN 'LINE aAD C/L Cr;OVE FUPDATE 

7 IF .BLOCK aSE e Ct : $0 .LIKE THEN ; 
8 

9 ; .KODE 17 30 TAB NODE C3 IF Insert " 
10 ELSE Replace^ THEM ; 

U 

12 : IDISPLY ( scrl) PAGE (FLISTI .NODE ; 
13 

14 : XEDIT FCLOSE VIQRJC KINDQH 

15 'SCREEN a e 'SCREEN \ EXECUTE ; . 



20 

3 \ File Editor - Coeiiand Interpreter 

1 * : CASE ( n n - n 9, t) OVER - IF 6 DROP 1 THEN ; 

2 : INSERTION ( c) ?VISIBLE IF INSERT 

3 aSE 13 CASE IF ( Return) 6 Ct ! +L 

4 ELSE 12 CASE IF ( Sksp) xDELETE 

5 ELSE 89 CASE IF ( TabI 4C ♦C +C 

6 FlSE IS3 CASE IF I ESCl TRUE EDI IT ! 

7 aSE 14 CASE IF ( PrtSc) CHOICE 

8 THEN THEN THEN THEH THEN THEH ; 

9 : FKEY ( - k, k -I) KEY 'KEY C3 53 > IF ( Function key) 
IB DROP 'KEY C9 -I THEN j 

11 : (edit) ( blkl) HOKE IDISPLY BEBIN 60 

12 4CURS0R FKEY -CURSOR DUP !♦ IF INSERTION 

13 ELSE DROP FUNCTION THEH EDI.IT J UNTIL ; 

14 CODE >EOIT ' (edit) 2+ I I rtOV 4 # R ADD NEXT 
IS 



342 



21 



0 275 826 



\ file Editor - Function keys 



cant do an etpty-buffers Kithout loosin-^ directory and BAT 
ir.forfiotion too. Solution is to Copy the existing file 
to a "rxxxJnK' lile, edit that one, and just delete it if 
the user Mints to forget any changes. 

^a. (the plus function Jcey) is supposed to flip between a screen 
and it's shadow or docuientation block. In FORTH, the 
convention is to have docuoentation blocks a fixed offset 
above source blocks (typically i driva hiuhcr so that source 
and dticuaentdtion are on seperate drives). Hoh should 
dQCu§rntatiQn blocks be handled? Perhapf a different file type 12 
»!here the source code Mould be in 'xyiahctxt' and it's shadow 13 
Hould be in 'xyiabcrioc'. This seans Me need eultiple open - 14 
files, which the file systea doesnt currently support. 15 



8 

I ( Key S9) ' FLUSH S9 'FUKCTIQK 
2 
3 
4 
tl 
6 
7 
8 

9 ? 14 KEYS * C: 
18 
U 



\ 6G :\: RECfia EMPTY -SUFFERS 8 pQ .)£D!T 
73 :ICUP 1 pq >ED1T ; 
Bl :tC DOWN -1 pq >EDIT ; 
\ 7G :K 4Q . (Ql >EDIT ; 
82 :K /XODE ' fiODE C? 0= fiODE C! .KQOE ; 
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ET-MEirj displays the editing coisands in the selection MindoM. 



FEBIT is the iain entry point to the editor. It trys to open 
an existin.j file and if it is not found, it prospts before 
creating a new file. 



B \ File Editor - Kenu Display, Entry point 

1 : EDMEKU { - } 

2 saECTIOS BOX (PAGE) 

3 COflKAMOS: [ * 

4 Fl: FLUSH F2: RECALL F3: SFREAIi ' 

5 F4: DEL LIKF5: Oy? LIKF6: SPLIT F?: OEL EGLF9: DEL EOS' 

6 F9: HOLD FJS: PUT ESC: EXIT ; 
7 

B : (FECIT) STAT-OFF KEHU-QFF 
. 9 FALSE EDtlT ! EDftEKU E0ITIK3 mm Z (edit! lEBIT ; 
IB 

11 ; FEDIT QPEJi? V Enter Filenase: • FILEHAKE IF 1* OUP FOPEH 

12 IF r Create a neM file? (Y/N)- YES? KDT 

13 IF DROP EXIT THEH FCREATE IF 

14 r Create Error* .ERROR EXIT THEH 

15 ELSE DROP THEK (FEDIT) THEK ; 



e 

1 

»\ 

i. 

3 
4 

J 
h 

7 
B 
9 
IB 
11 
12 
13 
14 
15- 
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3 
4 
5 
h 
7 
8 
9 
IQ 
U 
12 
13 
14 
15 
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6 
1 
2 
3 
4 
J 

7 
B 
? 

le 

11 

12 
13 

15 
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I Sa*ple Prep Task definitions I 

338 TERniNAL PSTATUS 
f STATUS CQHSTRUCT 

2«S0 immi CQnTROL 
CGKTROL CQHSTRUCT 

: HALT ACTIVAFE STOP ; 

\ 63B7 PSTfiTliS 'TYPE HIS I 
\ 'TAB 3 PSTATUS 'TAB HIS ! 



0 

1 
2 
Z 
4 
S 
6 
7 
8 
9 
IB 

n 

12 
13 
14 
(5 
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30-1 BAR CODE 
READEF} 



NETWORK 
32_| INTERFACE 
CONTROLLER 




34 



SAMPLE 
LOADER 




38 — 




42— 



RS232 
INTERFACE 



L 



40 



VALVE 
DRIVERS 



MIXER 
INTERFACE 



L 
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MIXER 



48 



ANALYZER 



AUXILIARY 
INTERFACE 



-H KEYBOARD -24 
DISPLAY -26 



-46 



FIG. I 



KX-KSB an^f fiXHSP contain the nuibers for the reUys that 
- are used to control the lixing poMer. 

?1.v'p;Lt t'jntiin; tiie naaber of the relay that turns tha 
fcixer on or ofi. 

W4 is used to set KI-ttSB to « and KX-LSB to 8. 
1/2 is used to set KM13B to 0 and HMSB to 1. 
3/4 is used to set KI-KSB to 1 and HX-LSB to 8. 
FULL is used to set «][-KS3 to 1 and KX-LSB to 1. 



6 \ nixer operations - constants, load block 
I 



2 


IB CONSTANT HI-KSB 


3 


19 CONSTANT Kl-ISB 


\ 


11 CGNSTnKT Ki-SLV 


e 
J 




i HE? 


e03B - CONSTANT 1/4 


7 


6061 tOMSTAHT 1/2 


6 


8138 C0K3TAHT 3/4 


9 


eiei COKSTAHT FULL 


le 




11 235 236 


THRU \ Rest of aixsr 


12 
13 




14 




15 




cr 





C£CI«ftL 



SET-PKF:-BIT turns one of the power control relays on or 
off as needed. 

HIX-CYCLE turns the lixer on and off for one cofplete duty 
cycle- If the duty oercentaoe is 183, then the sixer 
is left on. 



0 
1 

2 

T 

J 

4 

5 

6 : 

7 
& 

9 

1! 
II 
12 
13 
14 
15 



\ Kixer operations - basics 

SET-PKR-BIT { on/off rly* - ) 
S^AP 255 AND 

IF RELAY m ELSE REWY CQFF} THEN ; 



niX-CYCLE In-) 
KXDOTY 5 tfl t 

«K-ttLY RELAY (OKI HHP DELAY 
1630 SiJAP - ?DUP 

IF «X-RLY RELAY (OFF) DELAY THEK ; 



;57 



36 



IDUTY deteriines the duty cycle percentage for the eixinq 
operation. 

f-OKE detersines the poMcr setting of the eixer. 

SECOKIjS and SECQK3 detersine the aixer's duration of 
operation. 

filX activates the lixer usin^ the current parateters found 
in the «xcr variables MXDOTY, mm, and HXTIME. 



1 : 

2 

3 

4 : 

c 

J 
6 

7 : 

8 

9 

16 : 

li 

12 

13 

14 

15 



\ tliser operations - top level operations 
IDUTY ( n - ) 



FOHER 



t n - ) 



SECDKDS ( 
HXTIKE ! 



n - ) 



SECONC SECONDS 



nix ( - ) 

I MXBUSY ! 

KXPHR 9 DUP X KX-HSB SET-PKR-6IT KX-LSB SET-PSR-BIT 
KXTIKE 3 e DO HIX-CYCLE LOOP KX-RLY RELAY (CFFl 
«X-f1SB RaAY (OFF) HX-L3B RELAY (OFFl 
e nXBUSY 1 B; 



2Z I 
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These are the top level cowands for the hatilton rotary valve* 
cofitroller. RVAVLE selects a current valve is in the phrase 
3 KVSIVE. POSITION selects a valve position corresponding 
to the position numbers that aooeir on the top of the valve 
asseibly, and seads the valve to ttiit positioti. POP:! illows 
the user to use convention! nutbers 4or valvt positions, 
niftrly -I- for up, -2- for right, -3- ior down, and -i- for 
leU, The foUowing are exaiples of usage: 

1 RvaVE 3 FORT = I RVnLVE 7 POSITIOM 

2 RVALVE 4 PORT = 2 RVhLVE IZ POSITIGH 



e \ Haiilton valves: valve driving words 
1 
2 
3 
4 

c 



h 

7 
B 
9 
18 
U 
12 
13 
14 



RVfiLVE ( valve-l - ) 
RV-I ! ; 

POSITION ( Ha»iltan-«-pas - ) >R 
[ m 1 36 )OSQ-PftP. F,V-« ? 3Q ♦ >EVEH-PAR 
i RV-OIFr-TlQK >EV£K-PAft I 33 ^ >eVEM-PAR 
D >EVEK-PAR 5 HAMIlTOH 
R) fiV-STAT C! 
C DECIMAL ] MS 
a ECHO? II ECHO? OR NOT 
ASORT" Haiiltoft Error' B; 

PORT ( ncfsal-l-pos * ) 
1-3 11+ POSITION ; 
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1N1T-HA«-C0MK is called on powerup to initialize the haeilton 
controller. 

IHIT-HAnlLTOfJ initializes cotaanication with the controller 
and puts the valves into their default positions. 



B \ HatiUon valves; initialization 

1 : IKIT-HAII-COKH 

2 C HEn 30 >DDD-PAR 30 >EVEN-PAR D >EVEK-PAR 

3 3 HAHILTON 

4 C OECIHAL 1 4S3 HS 3 ECHO? ? ECHO? OR NOT 

5 ABORT" Kaiiltcn poHer error' 

6 C KEl 3 30 )aOB-PftR 4? >B'£H-PAR 0 >EVEri-?Af( 

7 3 HAKIITOH 

B t DECmAl 3 256 ttS 6 ECHO? KQT 

9 ABORT" Haiilton init error' ; DECinAL 

U : IKIT_HA«ILTOH ( - ) 

U 5S3 MS IHIT-HAM-COKH 

12 5 I DO 

13 1 RVALVt RV-OEFAULTS I I- + K ?DUP 

14 IF PORT zeea «s tkek 

15 LOOP : 
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X 

3 
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5 
6 
7 
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18 
11 
12 
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>S£H1AL' sends a single character to the controller, Mote 
that this send is done directly to the active serial 

^ port that is being used by task REKOTE for character 
'ccOloction. This is dene so that REHOTE can continue 
respond! no to receive interrupts without any interference. 

CuuKAnDI stores the chacaters for the coatand in SBUFF, 

KAiilLTOH sends a coecand to the controller* 



ft 

1 
2 
Z 
4 

e 



6 

7 : 
6 
9 
10 

n 
n 

13 
14 
15 



\ Haiti Hon valves: comand output words 

tommi ( ci c2 cn n - 0 ) OUP >R 
SBUFF + I- SBUFF SWAP DO 
IC! 

-1 UDOP R> ; . 

KAKILTQK *( cl c2 cn n - ) 
CDKuftJ^O! SBCTR I SBUFF SBPTR ! 
CAlLLf: GET RBUFF-CLEAR SEND>S£R 
5B KS CALLER RELEASE ; 
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1 
2 
3 
4 

r 
b 

7 

e 

IB 

tl. 

12 
13 
14 
15 
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£V-< contains ths current valve nusber 



B \ Haftilton valves: valve variables and utility words 
2 VARIABLE RV^f 

RV-STAT-TABLE contains pairs of status variables ( old and net* ) 3 7' 
the four valves 



RV-STAT returns the adress of the ne** status variable for the 
currently selected valve I RV-I 1 

RV-OIRECTIGK takes a position nueber and returns returns a 
direction character ( ^ or - ) for the Haiiltcn ccifiand 
string, the valve Mill rotate either one position counter 
ciockMise or one or two rositions clocfcMise. The first 
rotation of the valve is alHays clockwise. 



4 ! RV-5TAT I - stat-byte-addr 1 , , ; 

5 RV-t J 1- 2X F:V-STAT-TBl ^ : 

7 HEX : RV-DIRECTION { pos - direction-character ) 

6 RV-STAT C3 - 

9 DUP -3 * SSAF 9 = GR 

10 IF .20 : 

11 aSE 2B 

12 THEH ; D£Cl«AL 
13 

14 
15 



e \ HaiiUon valves: basics and load block 
This code is used to «anipulate the parity of characters that' 1 

are send to and received fro* the Hanilton controUer. the 2 J/ftRIftBLE ROPTK 
co««unication protocol for the device requires that the 3 * 

idressiP^ character be send as an odd parity, while cll other 4 CODE ^EVEK-PfiR i c - even-parity-c ) m 
characters «u5t be sent as even parity characters. The 5 POP M AND B 
clteffiate Miy of •dP.ipulating the parity by proqraniinq the 6 76 ( JPO, 000-PfiR?! 
Ufir.T is not practical ior reasons of speed and synchro- 7 IF 8? tB fl lOft 
niration. . 8 THEN B PUSH 

9 KEIT FORTH 

10 : >QDD-PAR ( c - odd-par ity-c ) 

a )EVEH-FAR eS XOR ; OECIWAL 

12 

13 

14 226 232 THRU \ Rest of Haeiltcn valve words 
15 
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RBUFF is a wrap around receiving buffer, whose length lay be I 
todififid through chartoing F.BUFF-SIIE. This buffer is iilUi 1 
by the COLLECT loop, running under task REMOTE. 3 

4 

R9PTR, Kf5-TR, and RCCUNT are used to eaintain RBUFF. The 5 
first two are a read pci tar arid a Hritc pGiuter into the (t 
buffer, and the last one is a count of characters received. 7 

8 

SBurF is a stall buffer for storing the characters that we send 9 
to the controller, " 10 

11 
12 
13 
14 
IS 
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0 \ HaiiUon valves: receive buffer utility words 
RB13FF+ is an addition nord that returns a 'wrapped around* 1 

result, corresponding to the size of RBUFF. 2 : RBUFF+ ( n ■ - wrappedtnn] ) 

3 + RBUFF-SI2E KOD' j 
RBuFFJ gets the nth character of the lost recent unread portion 4 

of the receive buffer. 5 \ : RBUFF9 ( n - c i 

6\ RDPTR 3 RBUFF+ RBUFF ♦ C3 ; 

F3ljFF-CL£Aft clears the first n characters of the tost recent 7 

unread portion of the receive buffer. B : RBUFF-CLWR ( - ) 

9 «RPTR ; RDPTft ! 

ECHO? returns true if exactly n characters have been received IB B RCOUNT ! ; 
at the serial port« 11 

12 : ECHO? ( ft - t ) 

13 RCQUHT 9 = ; 
1^ 

15 





& \ Puip 


- VuriilUifi 




RATE Put? flOM ratp in roimf"*; npr cprnn/f 


1 






VOL AiGunt to ouio in cnunt*; 




APPCI 




GAIN 




bnin 




ACCEL Accel er 5 Hon rats Dm»n •r.+ nr in '*oop*'e /qpr/cAr 






0 PO!E 2' 


ZERO 




ZERO 


232. ZERO 2! 


fuLE 




RATE 


im, RATE 2i 


DIRECTION contains the puep direction flag. 


7 "^VARIABLE 


VQL 


IC3G. VGL 2: 






FDIR is defined in task support; I - forward 


tiL ind fIL/tlln sst the {Iqh and vclus^ variable? after cnnvarfinn 


0 






iron ttic given units to putp counts. 


lU « Kl I 11 


— ) DUP FVOL ! 0 22333 I W VOL 2! ; 




U • K! ftl * 

11 • lU. } 






fCRKARO arid REVERSE set the pui^p direction paraaeter. 


12 : al/cin 


( n — ) 


DUP PRATE ! 8 2BflS3 60 KU RATE 




13 2 KL/MIH 


il/fiin ; 






j4 : FORKARD 


( n — 1 


1 FOIR • ; 




15 : REVERSE 


( n — 1 


3 PDIR ! ; 


538 


217 







SEKl'PARK vet= the address and length of cowand string, and 
address of a double varicble and generates a coiplete puep 
cccaand. Cowarid loaks like: •S?lflea^l;^ Refer to puip fianuah 

Th555 cosasnds all set putp controller variables. 



SETALL sends the necessary variables to, the puop. 



6 
1 
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•J 
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8 
9 
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U 
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\ Puip - Send Puep Paraieters 



SEHDFARK { ap ac n ~ 1 PCKO PPARK P-SEHO 

SETFLClf RATE V SP' SEWOPASrt 

SETVGL VOL f PF/ SENDfARS 

SET ACCEL ACCEL f AC* SEKDPARH 

StTSAIH 6Alfi r GN* SEHSPARK 

SETZERO ZERO r ZR' SEHDPARfl 

3ETF0LE POLE V PL' SEKDPARrt ; 

SETALL SETFLOW SETVOL SETACCEL SETGAIN SETZERO 5ETFDLE 



TEaPfiP ( ac — ) PCKD PSEfiO ; 

P.ERROR? V TI" TELLPKr P«PBUF HEI Hy«SER DECIMAL I ANO 

ABORT" Pusp exessive position error' ; * 
PABQRT t- A3' TELLFKP f WO' TELLPMP ; 
P_WAIT { - I EEGIK PRDCE5S_CKCS BUSY? IF PABQRT TKEK 
P READY? UNTIL P ERROR? ; 
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e 

TELlPiiF Seniis a 2 character pucp coiiand. 1 
PABGRT i5 an eaercsncv stop, turns the iotor off iaeediatly, . 2 : 

FJAIT waits for operation coiplete, aborts if stop couand. 3 : 

P5TART starts a puep operation. Controls putp status flag. 4 

PRESET causes control ier to use it's default paraieters. 5 : 

PREVERSE puRps in reverse direction, * 6 : 

PFQRiiARD pusps in forH=rd direction, ^ 7 : 

PDECinAL Corttroller interprets nusbers ii\ decimal for»at. 8 : 

PHE! Controller interprets numbers in Hex loriat (default). 9 : 

PSEP.VO Fut= ccntrolUr in servo aode. IB : 

PDIRECTIOil sets the puip direction based on contents of li 

DIRECTICH. 12 : 

Fti«P sends an entire set of coiiands to start up the puip 13 : 

using the current puip paraeeters, 14 : 

IS'IT.FUttP does the pucp initialiiation, 15 



\ Puap - Puip CcEnands 

F5TART TRUE PBU3Y ! r B5* TELLPHP PJAIT 
P OE L V QE" PCKD >3TR1{G +CH03TR PSENO 



FALSE PBUSY 



PRESET 
PREVERSE 
PFOR«ARD 
POECIHAL 
PHEI 
PSERVO 

PDIRECTION 
PUMP ( - ) 
IHIT FUtlP 



V RS' 
f DR" 

V DC 

V HV 

V SV 



TELLPHP 
TaLPKP 
TELLPKP 
TELLPKP 
TELLPrtP 
TELLPttP 



PDIR 3 IF PFORKARD ELSE PREVERSE THEM j 
PSERVO PHEI SETALL fOIRECTION P5TART B 
( - ) PABORT PRESET P D£ : 



2 13 
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PI/O is the data input/output port for the puap controller. 

PSTS Status port for I/O, 

RCVROY bit in fSTS is a « when data is available. 

TMTPOY is a 1 when it is ok to treiisfiit to the controller. 

rR£At)V 15 o 1 HiVn the it is ok to send a puip coifiand. 

STATUS* rtturns the 1/0 slctus Ha^s. 
P DhThS returns the data byte froi the controller. 
F'JrtTAI Mrit£= a coitand byte to the controUer. 
F'^CTS? returns true ii it's ok to transsit a coftiand. 
F'_ftCVRDY? returns true if data naitirtq to be read, 
f_f:EriDY? returns true if the controUer is ready. 
P.6ETBYTC Halts for a data byte and returns it. 
F.lnriUSH reads any reaaining data bytes before returning. 



fl \ Puip Control - CoMunicatiw iiords 
1 m 

1 3E£ COMSTANT PI/O 
3 JEF CCHSTAHT PSTS 



4 

r 
J 

6 
7 
B 
9 
18 
II 
12 
13 
M 



1 COKSTfiin RCVRDY 

2 CONSTANT I«TRI»Y 
4 COMSTAHT PREMY 



P.STATU33 

P^DATA3 

P.OATA! 

P_CTS? 

P.ftCVRDY? 

p.'rea&y? 

P JETBHE 
PJMFLUSH 
REPEAT 



( — 



n) PSTS INPUT ; 

n) PI/O INPUT ; 

-1 PI /a OUTPUT ; 

t) P STATUS* XHTRDY fiNO ? 

t) PJTATU53 FXVRDY AND NOT J 

11 P*STATU33 PREADY AMD ; 

n) BESIH PAUSE P RCVRflY? UKTIL FJATA? ; 



{ ~ ) BtfilH PAUSE P.RCVRDY? 
DECIKAL 214 218 THRU 



HHIIE P CATfi9 DROP 



«j o u 



PHP8UF is used to build pucp co&iand strings in. First byte is 
count. Also contains the characters returned by the controller 

after a CQcaand was sent. Look here for results. 
CBUr initi allies the F^PBUf 

stores the new character and increients the string ccunt. 

nOrtpriritiriQ char a are i^Aorcv* 
P_XnT«n[T tlushfis the input streafi and wits until it's ok to 

transiit a ne« cotiand to the controller. 
PJ;ESULT waits for the controller's co«and response ta 1j)r ?) 

A caloa signifies ok, ¥hile a '?* teans error* 

/PUHP sends the striny Mhose address and count are on the stack 
to the puip. Aborts if returned char is not 
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B V Pwp - Cowand Transftission 

1 ' 

2 CREATE PMPBUF 20 ALLOT . HERE I- COMSTAHT HBUF 
Z : B3UF 8 PKPBUF C! | 

A HEX 

5 : m\ i n — i 2a KAi PMPBUF OUP C3 1+ 2BUP SHAP C! + CI ; 
6 

7 : PJuntAlT ( — ) SESIK PJKFLUSH P.CTS? UHTIL ; 

8 • " 

9 : P RESULT ( — n) BBUF BEGIK P.GETBYTE DUP *m\ 3A « 
le ilTHIK UNTIL PnPBUF DUP C3 + CJ ; 

a 

12 : >PU!1P I fi c — ) 8 iiO PJltTHAIT DU? C; P.SATAl U LOO? 

13 DROP P.RESULT 3F = ABORT" puap coetand error' j 

15 



;36 
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TESTING Mm 



(I Starts foreatting a double nuiber at the end of PKPBUF. 

1} Ends fcfiitting, string is in PKPSur and addr, count on stack 

>STRM6 converts a double nueber to a HEX kriat teit string. 



4CK0STR builds a puap couind string in PHPBUF given the address 
pen? initializes cowand buffer and copies string to it. 
PPARn gets double nuttier out of address and adds string to buffr 
PSEKD ends a coaiand string Kith a and sends it to the puap. 



\ Putp - Coisand Fortatting 
\ : p cid ~ a nl 1 HORD .COUHT ; 
\ : XPUMP p c*d >PUHP PHPBUF COUKT TYPE ; 



6 
7 

e 

l« 

11 
12 
13 
M 
15 



: {f HBUF PTR I 
: 1} ( — an) 
: >STRKS t d - 
DEClttAL 5 

HEX 

: +CWDSTR ( 
: pcnn t a 
: PPAR« t a 
; P3EHD ( - 
DECiHAL 



ilROP PTR 5 NBUF OVER - | 

i ft» S«AP OVER OABS HEX C» IS SIGN I) 



n — ) e W DUP C3 +BUFI I* LOO? DPJ}P 

- J BBUF COUKT. ♦CnOSTR ; 

- ) 2» >STRH6 +CnDStR ; 
) 3B ♦BUF! PHPBUF COUNT )PtJ«P ; 
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B \ Relay Control - Method Hords 
1 

2 : NAMED ( - ) CREATE RLY ? C, 00££> ( — ♦) CS ; 

3 : IS OFF ( t ~) IF -1 ELSE 8 THEM KSK 3 AND 

4 RLYOEFftULTS FftT 5 ♦ GUf C3 «3J: MNVEPT AKO SWf OR ! 

5 : DELAY ( «s — ) 

6 COUJiTEK + BE51H PROCESS.CHDS BUSY? IF CTL.LOQf* THEN 

7 OUP COUNTER ( UNTIL DROP ; 
S 

9 
IB 
11 
12 
13 
14 
IS 



8 
1 
2 
3 
4 

c 
J 

£^ 
7 
8 

16 
11 
12 
13 
14 
15 
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e 
1 

2 
3 
4 
S 
6 

7' \/ 

8 

9 
IB 
11 
12 
13 
14 
15 
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The upper port of the PIfl generates the address end control 
Ireid/writeli H^tle the loner port is for ddta in/out. 
These constants define the I/O addresses far the &B21 Plft chip 
ftp tho Cl«tC'-22 AC 2 adapter card* 

i flliTBIR sets the f'U to ail hits out for the given chonnei. 

IKDIR sets the data direction to input. 



RlYSQiJT cutouts the data value to the PAf.Ur pert (6-21, 
^ is a paralleJ board connected to the PIAl 

RLYSKi qets the current state of all the relays. 



0 
1 
2 
3 
4 

5 
h 
7 
8 
9 
18 
11 
12 
13 
H 



\ Relay Control 
HEX 

\ direction/data control 
31« CQHSTftNT COA 311 C0K3TAHT CTU 
312 CGK5TAHT CDB 313 CO^JSTi^^T CTIB 
: OUTDIR ( a — ) )R € I I- OUTPUT 

OUTPUT 34 f:> OUTPUT ; 
: 1NHR l\— ) )fi 8 I I- OUTPUT 

OUTPUT 34 R> OUTPUT ; 
: RLYSOUT ( d a — 1 CTLB OUTDIR DUP CDA OUTPUT SKAP CDB OUTF'U! 

DUP 48 ♦ CDA OUTPUT CDfi OUTPUT ; 
: RLYSIH ( a — ) CTLB IHOIH OUP CDA OUTPUT SB + CDA D'JTPU: 

CDB IKP'JT 9 m OUTPUT ; 
DECinAL 238 21 S THRU 



\ upper parallel port 
\ lower 

8 I OUTPUT 6PF I 1- 
8 I OUTPUT 6 11-^ 



«r ^ a 
U Z. T 



PiY contains the relay \ after RELAY is executed 

PRT contains the PAMUX port address after RELAY (8-2). 

KSK contains the bit lasic to isolate the reUy bit. 

FlYUPBATE Given the nen state (either on or off) for « relay, 
reco ifl the current relay st&tes tcr this group of 8, and 
i€t the nfiK stats for this reUy. The current status for 
for these relevs is saved in fiELAYS for status updatin^j 
Note that RELAY lust he executed before ON or OFF. 

RELAY converts a relay nwher (t - 24i into i port I and it's 
bit position in the port« 

and OFF turn just the relay selected by RELAY on or off. 
IKITJLYS sets ail the relays to their user selected state, 
(defined by the bits in RLYDEFfiULTSl 
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6 \ Relay Control 

1 VARIABLE RLY \ These 3 variibUs are set by RELAY 

2 VAftlAJLE PRT VARIABLE nSK VftftlABlE SK3 
3 

4 : RLYUPOATE ( n —1 

5 MSK 3 AM ' \ isolate relay state bit 

6 PRT 9 RLYSIH \ get current state 

7 K5r/3 -1 XQR AftO ( retove old state ) CR \ insert nev state 
B PRT 5 2DUP RELAYS + CI ( save relay status) RLYSOUT \ 

9 : P^LAY a — ) I- \ Converts 1-24 to B-23 
18 OUP B 23 KITHIN HOT ABORT' ReUy # is out of range' 

11 DU? RLY { Q /nQO PRT \ BITKASK + 05 ttSK I ; 

12 : 10«) RLYDEFAULTS PRT a + O INVERT RLYUPUATE ] 

13 : (OFF) RLYDEFAULTS PRT 3 + C? RLYUPDATE ; 

14 ! IKIT RLYS 

15 CTLft OUTDlfi CTIB OUTDIR 21 1 DC 1 RELAY lOFFl LOOP ; 
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KAItED is used to §ive a relay a naw: • 4 faAY NAr.EI) nETHANOL* 

Later, use as: KETHANDL RELAY OH 
IS.OFF is \i5e<l to define the state of the relay Mhen •off", 
AUoHS a relay to be norially on rather than off. 
Use: 4 RELAY 1 ISJFF takes 'on' the default for relay 4. 
* Cotbine the tno definitions: 3 RaAY HAnED KATES 0 IS^OFF 
DELAY waits a given nwber of lilliseconds before returning. 
Use it in user lethods rather than FDRTH's RS to alloM 
^ recQQni2ino the stop cotiand. Quits back to lain loop if stop 

HS is redefined to be used as a units descriptor in a lethbd. 
Use: 5 MS DELAY or 18 SEC DELAY. 
niM Maits for several ainutes. 
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8 \ Relay Control - Kethod wrds 
I 

2 ; OH i ' ) (OH) fi; 

3 : OFF ( - ) (OFF! 8; 

4 • 

5 : SENSOR I » - ) I- BOP 28 24 MITHIH 

6 KOT ABORT" Sasor I is out of range" SKS I ; 

7 ; tSET-SEKSQRl t - on/off I SHS'3 8 /KQO 

8 RLYSIN SWAP BIT«ftSKJ AMD KOT KOT ; 

V : SKAIT ( on/off ) BEGIH PRGC£SS,CHD5 BUSY? 
18 IF CTL^LOOP THEH DUP (EET-SENSOR) = UNTIL DROP Pj 
n : SET-S£K30ft 'l * - ) 3EKS0R tfiET-SEKSORl ; 

12 : 0«-KAIT ( - ) 1 SKAIT ; 

13 : OFF-WIT ( - ) 8 SHAIT \ 
14 

15 : UPD-SEHSORS ( - ) 2 RLYSIN RaAYS 2* C! ; 



LAST-END contains a pointer to the address of 'endaethod' 
. in the lest occurance of END* If W is being coipiled 
* for the first lite in a load, this pointer eust be 
r.nl r . 

8H:HD initializes the control task method paraesters* ft 
eipties the dictionary space of the tasC, clears any 
outstanding status ieesages. resets LAST-END to 0, 
connects the tasks dictionary to the top of the lain 
dictionary, cieares the old fethod nsie. 



1 
2 
3 



6 
7 
S 
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11 
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\ Hethcd Execution - initidlization 
VARIABLE LAST-END \ Points to 'endtethad' in Ust EKD 
CKTHD 

EMPTY 0 riTHPTR ! \ get rid of old tethod 

0 nF«SG !• 0 FFttSS ! \ Clear eessages 

0 LAST-EKG-! \ lintialize EKt-s ^ 

OFERATOR COKTEIT HIS CONTEXT 28 ttQVE \ chain vocabulary 
6 «£TH0D8Uf I TKUE CHAHGEftETHaD I ; V clear sethod na« 
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KETHOD Definino Hord. Coapiles a'nen aethod and puts it's 
starting address into KTHPTK, 

end*ethQd Run tite code for EHQ. Tertinates tethcd execution. 

EHD Coipilin^ word inserts 'eridcethod* as end of iethod 
definition and steps coipilin^ the eethod definitisn. Since 
sethQds sust be able t3 nsst, 'sndaethod' tust execute^only 
once, at the end of the last tsthod defined. The variafele 
LAST-END is used to replace earlier cospiled addresses of 
'endsethod' Hith EXIT, effectively converting all but the 
last occurance of EKD into norfial forth seeicolaris. 



193 

C \ Method Execution - defining dethods • 
t 

2 : METHOD 

3 HERE RTNKFTR \ 

4 : LAST % ; CFA 2+ RTHFTR \ j 
5 

6 CODE end£5thad BUSYBIT t RUN STATUS MOV ' EXIT JMP 

7 * - 

8 : END 

f LA5T-END ; ?DU? 
IB IF C'3 EXIT 2- a\'ER ! THEN 

11 HERE LAST-END I 

12 COMPILE endtethQd SMUDGE R) STATE ; IKi<£OIAT£ 
13 

U 
13 



51 
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0 \ Method Execution - breaking execution 
I 



breetc Rimtifie code for fij U«ed in place of to check for 

pause, step, or continue coiiands froa the user task. Exits 2 : breat STEP? IF PAU3EBIT RUNJTATUS 4! TKEIi 
the coAiand loop if stop. 



o BEGIN PRGCESS^CKDS BUSY? IF CTL LOOP THEN 
4 PAUSE? NOT UKTIL R> DROP EXIT 

c 



B; teriir.ates a definition, Ccu=ing a 'breef;* to process 

coaeandE froi the user task and to aliOH other tasks to run. k : B; COMPILE break 5RUD5E R> 8= STATE • ; IMMEDIATE 

7 



9 

il 
12 
13 
M 
15 
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C_ST/STOF processes a start/stop conand fro* the user* 



B \ Control Tasfc - Start/Stop Run Control 

1 : C,ST/STQP ( ptr — i DROP 

2 BUSY? IF ( cant start or stop Mhen its busy) 

3 ftotready 

4 ELSE 

5 IDLE? IF i not running) 

6 MTHDO!:? IF ( start a ncn run) 

7 \ RUNBIT RUK.STATUS 1 startrur. 

8 ELSE ( SQ«ethinQ Mronq nith the lethod) 

9 KTHDERfi 
la THEN 

a ELSE ( end the run) 

12 mxm RUHJTATUS ! endrun 

13 TKEH 

14 THEH ; 



J0O 
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CJ*3/C0fiT procfissES a pause/con tLriue cowand ha the user. 



6 
1 
2 

^ 



a 

9 

le 

u 

12 
13 

u 
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\ Control Task - Pause/Continue Run control 
CJS/CONT ( ptr ~ I DROP 
BUSY? IF 

notready 
ELSE 

IDLE? MOT IF 
PAUSE? IF 

KUH.STATU3 5 C STEPSIT PftUSHBIT OR HEGATE 1- 1 
LITERAL AKO RUKjTATUa ! 
ELSE 

PAUSEBIT RUKJTATUS f! 
THEH 
THEK 
THEK : 
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C_I3TEP processes a single step coaiand froi the user. 



8 \ ControrTask - Single Step Run Control 

1 : C.lSTtP ( ptr ~ ) DROP 

2 BUSY? IF notready 

3 ELSE 

4 IDLE? IF 

J KTHDOK? IF \ start a run in single step fiode 

6 RUMBIT STEPBIT ♦ RUK.STATU5 ! startrun 

7 asE 

8 KTHDERft THEM 

9 ELSE 

10 RUN .STATUS 3 

n PfiUSE? IF \ turn off pause to do one step. 

12 C PAUSEBIT KEGATE I- ] LITERAL AMD 

13 THEK STEPBIT OR R'JN.STfiTUS I 

14 THEN 

15 THEH : 



■1 
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3 \ Control Task 
I 

2 181 182 THRlh- \ 

3 192 193 THRU \ 

4 183 lBf-TKF;U \ 

5 194 LOAD 
L0A9 
LOAD 
LOAD 

9 234 LOAD 
10 237 LOAD 
U I?e LOAD 
12 EXIT 
13 
14 
15 



- Load Block 

Basic tools 
iethod structure nords 
Co«*and processing' 
Breai: execution wcris 
Relay Cor.trol 
F'J9D Control 
Haiilton Valves 
Kixer Operations 
FrografisabU eesseges 
Tast locp, initittliiatiofi 
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WThTTR H not fl, points to tost rEcent valid •ethod- 
«TK«PTR is used for displaying the naie of the isthod. 

>«THD-NA«E places the naee of the •ethod in KETH0C5UF, 



e 
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\ Control Task ~ basics for eethads 

VARIABLE MTHPTft \ Points to first word of iethod 
VARIABLE MTHHPTR \ Points ta nfa of iethod 

: >nTHD-KARE 

JIETHQDEUF KMIEH ELAMK 

KTKHFTR 3 4 + COUHT 11 r.IK 

rJETHODEUF SKAF CKQVE ; 



»Q3 
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IILE? returns true if a iethod is not runnino. 

BUSY? returns true if cycling froa running to idle. 

PAUSE? returns true if in pause state. 

Rilfi? returns true if running, pausing, or stepping. 

STEP? is true if in single step eode. 

RSP sends a response (a eessage pointer and a token) to a 

CQSiand frofi the user task, 
ACKRSP responds with ok if ccBsand was accepted, 
KAKRSP is an error response, string is used for error lessage. 
startrun wril perfor» necessary processing to start a run. 
cndrun will do what is necessary to end a run. 
notready responds with not ready error. 
MTHDQK? returns true if iethod exists and no load errors. 
HTHDER?. error if the iethod is not ok. 



B \ Control Task - basics for status Checking 



1 : 


statchecfc 


{ n " 


- t) FliK_ 


STATUS 5 fiHO 


2 2 


IDLE? ( - 


t) 


IDLEBITS 


statcheck KCT 


3 : 


BUSY? ( « 


- t) 


BU5YBIT 


statcheck ; 


4 : 


PAUSE? ( - 


- t) 


PAlfiEBIT 


statcheck ; 


5 : 


RUM? ( - 


- t) 


RUNBIT 


statchecfc ; 


h : 


STEP? ( - 


- t) 


STEPBIT 


statcheck ; 



7 

8 \ : RSP ( ptr n — ) FROr._CCKTROL SEKO.HSG 

9 V : ACKRSP ( — ) f control ok* AD: ' RSP 
Ifl \ : NAKRSP t ptr — ) KAK RSP ; 

11 : startrun j 

12 : endrun ( perform end run operations) ; 

13 : notready TRUE ABORT' Error: not ready!' ; 

14 : ttTHOOK? RTHPTR 3 ; 

15 : HTHDERR TRUE ABORT* Error: No Method !" : 



SHQ-(vLYS displays the current status of all relays* 
SH0-Pi'1S6S displays both progra»*aule lessages. 
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0 \ Device status - bactqround - updates at refresh tise 
1 

2 I 3RLY-STAT ( n - on/off ) 

3 8 /m RELAYS + C3 SKAP BITMASK^ AHD ; 
4 

5 : SHO-RLYS ( - ) 

6 24 6 DO . 

7 1 JRLY-STAT 1 OISP-P.aAY 

8 LOOP ; 

IC : SHO-PrtSGS 

n MPrtss ; I £'iSF-pnsG 

12 FP51SS ? Z 2ISP-PnSG ] 

13 

U 

15 



460 

STATUS-BnG paints the Khole status display, and updates its 
contents to the current value of all devices and aessages. 
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0 \ Device stctus - background - top level 
1 

2 : STATU5-BKG C - ) 

3 \ Display all boxes and default text for background 
A PUKP-BOX HIIEF:-B0X 

5 RV-BOX£S CD-BOX 

b \ Refresh all of the actual divece and iessace status 

7 «1HCQ«QFF 

8 SHQ-RLYS SHO-RVLVS SHQ-PUMP SKQ-KIXER SH0-Ptl56S 

10 

11 

12 
13 
U 
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F:V-BqX draws a sinole rotary valve box at the location 
^^requBstetJ on the stack, and labels it Mith the given 
* nu4ber (n) on the stact. 

RV-BQJES draws all four rotary valve boxes and labels 
theji apropriately. 



13: 



B \ Device status - background - ROTARY VALV£ boxes 
1 



2 : 



5 
h 
7 
6 
9 
10 

n 

12 
13 
■U 
IS 



f;V-BOI ( top left n - ) 
)R Zm TAB 

6 DftTL 35 D1:T R> 48 ^ EKIT - 7 DRTR 
Sm U 2DUP SHAP 15 DR2SD 

i+ SWAP TAB 15 mm I 

RV-BOrES ( - ) 
4 29 TA3 ROTARY VALVES' 
19 2 4 e 00 

3 + 2DUP SSAP I RV-BGX 
LOGP 20SGF- ; 
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CD-BOK draHS a contact device box with all its labels and 
titles- 



0 
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4 
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J 

6 
7 
3 
9 

la 

11 
12 
13 
14 
15 



\ Device status - background - COIUACT DEVICES box 
CD-BOI ( - ) 

2 48 TAB CDHTACT CLDSUSES" 

3 35 ZDDF TAB 

7 DRTL FU.NCTIOK' 6 BRBAR TC 6 DRBAS FUKCTIQH' 7 DRTR 
SiJAf 12 8 DO 

U 2DIIP SKA? 22 DR3SD 
LOOP 

1+ StfAP TAB EL 22 0R3AR BC 2Z DRBAfl BR } 
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All the words in this and the folloHino screen display thier 
respective in^Griation regardless of wether the status of 
any of thee has been wdified sinse it was last displayed- 

SKO-RVLVS displays the current status of all rotary valves. 

SHa-«lXER displays the current status of the lixer, 

SH3-PUKF- displays the current status of the pufip- 
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8 \ Device status - background - updates at refresh tite 



2 : 



4 

5 : 

6 

I 

e 

9 : 

le 
11 

12 
13 
14 
15 



SH0-RVLV5 ( - ) 

7 a DO I DISP-RV 2 +LOaP ; 

SHO-KIIER ( - ) 

nXBUSY 3 DISP-«)fSTATE KXTIHE J DISP-ttUIHE 

HXFKR 9 OISP-HXPHR KXDUn 3 DISP-«XDUTY ; 

SHQ'PUSP ( - I 

PBUSY 3 DISP-P5TATE PVOL 5 DISP-PVQL ' 

PRATE 3 DISF-PRATE FDIR 3 DISP-PDIR ; 
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BROfi-PIECE defines seH editing constats for sending border ' 
characters to the screen. 

All border pieces, except for the horizontal piece, are 
y-tifiied uHirtG ERCf;-Pl£C£. I he puce; ire: 
TL for top left, TC for top center, etc... 

oAR-STf: is a string of horizontal characters used for drawing 
a horizontal bar. 



B \ Device status - background - basic tools 

1 ; BRDR-PIECE 

2 CREATE , ( c - ) 

3 DOES) a EHIT ; 

4 218 eRDR-PIECE TL 194 BftC-R-PlECE TC- 191 BRDR-PIECE TR 

5 17y BRD?.-f I£C£ VT 

h m BROP.-PIECE BL 193 6P.DR-P1ECE BC 217 efiDR-PlECE BR 
7 

B CREATE BAR-STR 20 ALLOT 

9 : HAKE-STRINS I - ) 
13 BAR-STR 28 8 DO 
U 196 OVER CI 1+ 

12 LOOP DROP ; 

13 r.AK£-STRlH8 FORGET KAKE-STF.IH5 

15 
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DP.Snr. draws a horizontal bar of a characters at the current 
cursor position, 

OP.Tl and DRTF: draw top Uft and top riqht sections of d box 
respictivelY- 

DRTG? and DRBTX draw a cosplete top or bottoi section tor a 
bos. 

DR2SD draws the two sides of a box on one line. 

0R3S0 is the saae as ORiSD, but is used for boses that hoYe 
a vertical center divider. 
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B \ Device status - badr^rourtd - drawino sections 

1 : ORBAP. ( n • ) SAR-STR S«AP TYPE ; 

2 

3 : DRTl ( n - ) TL I- DfcBAR ; 

4 : DRTR ( n - I I- DRBAR TR j 
5 

5 : 0PJOF ( n - ) Tl 2- &F.B1=: TR ; 
7 : DRBTtl ( n - 1 Zl 1- GRBAR BR j 
B 

9 : DR2SD ( y i n - ) 
le 1- >R 2I«JP TAB VT 
n R> 4 TAB VT i 
12 ; DR3S0 ( y x n - 1 
VS I- >fl 2DUP TAB VT 

14 I ^ 2DUF TAB VT 

15 R> + TAB VT ; 
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F'U/IIU-BCX draws a pu*p or iixer box at the location 
specified on the stack. 

Ptl^tP-BGK drans a pusp box at the appropriate locationi and 
places all the reouired labels and titles in and around 
it. 

nilER-BOX drans a lixer box at the appropriate location, 
and places all the required labels and titles in and 
around it* 
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e \ Oevice status - bactqround - PUrtP and rtUER boxes 
1 

2 : PU/niX-BOX ( top left - ) 

3 2DUP TAB 17 DRTOP 

4 OVER 1+ DUP 3 + SWAP 00 

5 I 2 PICK 17 DR2S0 

6 LOOP 

7 SSAP 4 + SWAP TAB 17 DRBTK ; 

8 : PUKP-BOl 

9 4 3 TAB PUnP* 5 1 fU/KlX-BDI 

II 6 2 TAB VOLUME:' 7 2 TAB / RWI RATE:' 

11 e 2 TAB / DIRECTIOKi' ; 

12 : KIXER-BQI 

13 U3TAB.'niIER' 12 I PU/KU-BOX 

14 13 2 TAB BURATIOK:* 14 2 TAB kGKER:* 

15 15 2 TAB X OOTY:' ; 



4 / / 

D[5P-F?iSG'^aets a string address and a fU^ that indicates 
^ - whether this strinq is a nethod tessaqe string (I) or a 
^functian iessage strino (fl)« It then places this string 
ir: th^ acpropriate KreBt-. position. the string 
pointer is 6, then then appropriate flessaoe area on the 
screen is cleared. 
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C \ Status displiY - proqraiabU lessaqes - display routine 
I 

2 : 0I5F-PflS6 ( str-iddr tthd/func - ) 

3 IF 2 9 SCTAB 6fl 

4 ELSE 4 A SCTAB 28 

5 THEN SKAP ?DUP 

6 IF C5KT)TERn 

7 ELSE SP)TEEH 

8 THEM ; 
9 

le 

U 
12 
13 
14 
15 
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SIKPuSG updstcs the tethod prograflfiable aessage on the screen 
a it hc£ been chanced since Ust displayed, 

STFPJfSG updstes the function prooraiiable isisage on. the screen 4 
it it has been changed since last dispUyed. S 

6 
7 
8 
9 

le 
11 

12 
13 
14 
15 



C \ Status display - progratahle sessages - top level 
1 

2 : STMPHSe ( - ) 
5 «FfiSS 3 DUP QLDMFftSS a = HOT 

IF DUP I 11ISF-FKS6 OLDHPtlSS ! 
ELSE DROP 
THEN : 



STFPKSS ( - ) 

FPRSS 3 DUP OLDFFMSB 3 = KOT 
IF DUP B DISF-P«SB OU'FPMSE I 
ELSE DROP 

THEN ; 
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STPRSG updates status screen prograsi^ble sessagcs Mhenever 
they change. 



8 
1 
2 
3 



\ Status display - prograsable cessaoes - top level 

STFfiSB ( - ) 
STAT-QK? 

IF STSFnSS STFPKS5 
TKEH : 



I 

e 

9 

10 

11 

12 
13 
14 



1 ^ O 
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C \ Status dispUy - puip status updating - display routines 

1 : DISP-PSTATE ( on/off - ) A 12 SCTflB 

2 IF C HEX ].FeC STfiT-ATTR ! T ON ' COUNT >TERH 

3 793 STftT-fiHR ! t DECIMAL ] 

^ ELSE r OFF* COU«T )TERn THEK * ; 

c 

J 

6 : OESP-PVOL ( r. - ) 

7 8 13 SCTAB Q CM » t I) >IEHn ; 
8 

? : DISP-PF.ATE t n - ) 

\^ 1 n scTAS a « I » Ml nm ; 
\i 

\2 : OISP-PCIR ( ^or/rev - ) 

13 IQ 13 SCTAB 

t4 IF r FOF- COUrU >T£RK 

15 ELSE V KVr CQUfiT >T£Rn THEN ; 



DISP-PSTATE displays the current on/off status of the putp. 

OISP-PVOL displays the current v&lme setting of the puip. 

DISP-PPJiTE displays the current pusping rate setting of the 
putp. 

DISP-POIR displays the current direction setting of the putp. 
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All of the folloHing words dispUy their inforiation only 
if thi^ inforiation h&s been codified since it Has 
last displayed, 

PUKP-STATE? for the pusp's current on/off setting. 

PUn?-VQL? for the pusp's current voluae Szttinq. 

PUMP-finTE? for the puip*s current puiping rate setting. ^ . 

FURP-DIR? for the puap's current direction setting. 

476 

STFUK.° displays any puap settings that *ay have changed 
since t^ey nere lest displayed. 
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8 \ Status display - pusp status updating - status checks 

1 : PUKP-STATE? P3USY 9 DUP QLDPBUSY 3 = HOT 

2 IF DUP DISP-PSTATE OLDPBUSY ! 

3 ELSE DROP THEM ; 
4 

5 t PUKP-VGL? PVQL 5 DUP OLDPVQL 3 = HOT 
d ■ IF DUP DISP-PVOL QUjPVOL \ 

I ELSE DROP THEW ; 
8 

9 ! PUHP-RATE? PPJITE ? OUP OLBF-RATE 5 = HOT 
18 IF OUP DISP-PRATE CLCPRATE \ 

II ELSE DROP THEH ; 
12 

13 : PUHP-01?.? FDIR 3 OUP QLDPDIR 3 = HOT 
U IF SUP DISP-PDIR CLDPDIR 
15 ELSE DROP THEU ; 



1 u o 

6 \ Status dispUy - puip status updating - top level 
1 

2 J STPUhP ( - 1 

3 STAT-OK? 

4 IF PUKP-STfiTE? PUnP-VOL? PU«P-RATE? PUttP-DIR? 

5 THEN ; 

6 • 
7 

8 

IB 

11 
12 
13 
M 
15 
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DISF-KISfATE displays the current on/ofi status of the aixer, 
OrSF-HXTIttt displays the current duration setting of the 

DISP-WXPWR displays the current powsr setting of the dixer, 

OISP-flXDUTY displays the current duty cycle setting of the" 
ftixer« 

472 

All of the follGHinq words display their inforwtion only 
if this infcrtation has been cuuified since it was 
last displayed. 

KX-STATE? far the fiixer|s current on/off setting. 

Ki-TIRE? for the lixer's current tisa setting. 

KX-FWR? for the ftixer's current poMer setting. 

KX-OUTY? for the fiixer's current duty cycle setting. 

473 

STrtliER displays any sixer settings that lay have changed 
since they were last displayed* 
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1 50 

e \ status display - aixer status updating - display routines 

1 : DISP-WXSTATE ( on/off - 1 13 12 SCTAB 

2 IF C HEX ] Fee STAT-ftTTR ! t" ON ' COUHT >TEf«t 

3 7B0 STAT-AHR ! C DECIMAL'] . 

4 ELSE r OFF' CCUNT >T£ni1 THEK ' ; 
5 

6 : DISP-HXTIHE ( n - ) 

7 15 13 SCTA3 8 (I t I I 1} >TERM ; 
B 

9 : DISP-«IPHa ( n - 1 16 13 SCTAB C HEX 3 
IS mz CASE IF r !/<■ ELSE BeCI CASE IF f 1/2: 

11 ELSE BI0S CASE IF V 3/4* ELSE 6161 CASE IF T FUL" . 

12 THEN THEK THEN TKO^ COUNT )TERa C DECIMAL J ; 
13 

14 : DISP-nXOUTY ( n - ) 

15 17 14 SCTAB fl (t I t C> >TEfil1 ; 
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8 \ Status display - lixer status updating - status checfes 

1 : HX-STATE? KXBOSY 3 OOP QLONXSUSY J = KOT 

2 IF DUP DISP-KXSTATE QLDrtXBUSY 1 

3 ELSE DROP TriEM ; 

T 

5 : MX-TIME? . flXTIRE 3 DUP OLDHXTIKE 9 = KOT 

fi IF OUF OlSP-fiXTIKE CLI-KXTIKE ! 

7 'ELSE DROP THEN ; 

n 
Q 

9 : KX-FWR? HXP«R 9 DUP OLOHXPMR 3 = KOT 
10 IF DUP DI5?-«XFWR OLDKXPaR * 

U ELSE DROP THEH ; 
12 

13 : MX-aun? HXDUTY ? DUP OLDKXDUTY t = KOT 

14 IF DUP DISP-filDUTY OLDKXDUTY ! 

15 ELSE DROP THEK ; 
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6 V Status display - lixer status updating - top level 
1 

2 : STKIXEE ( - ) 

3 STAT-OM? 

4 IF HX-STATE? HX-TIKE? «X-PKR? KX-DUTY? 

5 THEH ; 

7 

8 

9 
18 
11 
12 
13 
14 
15 
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POSDPORTI converts i position nmber (1,4,7.101 to a port * 
nuiber (1,2,3,41. 

>RV-Dl£P positions the cursor at the beoinino of the display 
region for the requested vdlve nutuer on the stact. 

OIS?-ftV dispUys the status of the requeted rotary valve. The 
vilue ^iven on the stacS; (nJ is twice the value of the 
vilve niiiber. 

UPD-F;V-5TAT updates the status variables for the reqursted 
rotary valve. The value given on the stack (n) is twice 
the valui of the valve nuiber* 



e \ status display - rotary valve updates - besics 

1 : POSnWftTI ( ft - 1 

2 3 /«0D ♦ : ., 

Z : >RV-01SP In-) 

4 3 * 8 + 29 SCTAE : 

5 : GET-RV-STR ( n pi - a ) 

i m 8= IF 2Df;0P T Hot Present * EIIT THEK 

7 OUP 3 < • 

8 IF \'lt S'i<AP 4 t 4 ELSE 3 - It SHftP 4 ♦ 4 t 4 

9 THEH fi'V-HAKE-TBL + 3 ; 

10 I DISP-RV t n - ) 

11 DUP If SHfiP OVER >RV-blSP 

12 ftV-STAT-TBL + C* POSOPORTI 

13 fiET-F>STR CCi;«T >TEF;« ; 
U : UPD-RV-STAT ( n - ) 

15 DU? RV'STAT-TEl ♦ S«AP RV-STAT-T&t U ♦ C! ; 



469 

3TF:'?IVS displays the current status of all rotary valves 
tthose status has changed sinse it Has last displayed. 
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8 V Status display - rotary valve updates - basics 
1 

2 : STRVIVS 

3 STAT-CK? 

4 IF RV-STAT-TBL 7 B DO 

5 DUP I + C5 OVER I I* C9 = KQT 

6 IF I DISP-f;y I L'f'D-P.y-SIAT TKEH 

7 2. +L3QP DROP 

8 THEN ; 
9 

le 

11 
12 
13 
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e 

1 
2 

3 

c 

tJ 

6 
7 
B 
9 
IQ 
U 
12 
13 
14 
15 
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CHnNGcfi-RLYS? displays are relays in the currently indexed 
status table byte tbU have beeiv tcdiHed sinse last 
displayed. 

STftLYS displays all relays that have been iodified sinse 
they Here last displayed. 



\ Status display - relay status updating - top level 

CHftHGED-RLYS?' ( - ) 
RELAYS RLYBYTE3 DUP OLDRaftYS RLYBYTE3 

IF SKQ-g-RLYS QLDREIAYS RLYBYTEI 3 ♦ C! 
ELSE 2DR0P 
TK£H : 



1 

*\ 

L 

3 
< 

c 
w 

7 
8 

9 : BTRLYS ( - 1 
16 STAT-QM? IF 
U 3 e 00 

12 I RLYBVTEt ! CHAN6ED-P1YS? 

13 LOO? 

14 THEM $ 
15 
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.14; 



1 

2 
3 
4 
5 
6 
7 



9 

10 
U 
12 
13 
14 
IS 
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e 
1 

3 

7 
B 

19 
II 
12 
13 
14 
13 
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BIT««SI( is i table of bit lasks, indexed by a nuaber frot 
e to 7. 

?:lYB*fTEJ iiiiicalei which livtc in the reUy tsbU we are 
turreritlY indexing for status (JisplaY* 

FimT£3 tikes a tatU address fros the stack (either old 
or nen stitus tatilel and returns the currefttly ifidexed 
status byte frai this table. 

BITftnSK* returns i bitiask given a bit nuiber (0-7) on the 
stack. 



C \ Status display - relay status updaUoQ - basic tools 

1 HEX 

2 CREATE BITIttSK 1 C, 2 C, 4 C, B C, Ifi C, 20 C, 40 C, BB C, 

5 VARIMIE PIYBYTEI 

6 fiSSEKBLEF: BEBIK 

7 H POP %%m M «QV 

8 e a SUB K ) 8 nov B 

9 8 PUSH KEIT 
18 CODE RLYBYTEJ 

11 RLYBYTEI 0 MOV OUP JhP 

12 CODE PITr.ASK? 

13 BITKASK I 2 KQV M 
14 

15 FORTH 
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>aLY-QISP positions the cursor at the begtninq of the status 
display region *ar the indicated relay nutber on the stack. 
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K \ Status display - relay status updating - display array 
I 

2 : >RLY-GISP ( n - ) 

3 12 m 2M 36 ♦ SKflP 6 * S«fiP SCTAB ; 
4 

5 VARIfiBLE STAT-FLAS 

h : STAT-CH? PAUSE STAT-aA6 3 ; 

7 : STAT-OK 1 STAT-FLfiS ! ; 

8 : STAT-CFF 6 3TAT-aAS ! ; 
? 

18 

n 

12 
13 
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BlSP-SaAY displays the status o{ relay n as indicated by 
the on/off v«lue ori the stacl: (1 = OH). 

SQ-l-RLY is the sate as DISP-RELAY, hut n indicates a relay 
relative to the currently index«l status table byte. 

smha-RLYS takes a bitwsk froi the stack, and displays all 
relays fro« the currently indexet! status table that are 
iridlcated by this bitiask. 
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e \ status display - relay status updating - display Hords 

1 : DISP-tiaftY ( on/off n - ) 

2 DU? >R1.Y-1HSP 24 SKftP 

3 IF 1+ THEM 

4 2t CD-RA«E-T3L + 3 COUKT >TERK ; 

r 

b ; SHO-l-RLY ( on/o^f n' - ) 

7 RLYBYTEI 3 6 1 + DISP-RaAY .; 
8 

9 : SH0-8-RLTS ( bi - J 

le RaAYS RLYBHEJ 

11 e e DO 

12 OVER I mmm m ?oup 

13 IF OVER m I SHQ-l-RLY 

14 TKEK 

15 LOOP 2J!fiQP ; 
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fl \ SUtus Task - Status Tast Loop 
EHOKKfTHOD H the first char of the current «ethod file nafle*is 1 
nttt 0, display the fiUnaie* Nate is updated by control task 2 : STRUM RUH. STATUS 9 OLDSTATUS 9 - IF RUN.STATUS 5 DUP 



« ithen a valid lethod is loaded. 
STtlETHO uDvotes the currei^tlv selectett wthod nane on 
the status header if the r»a*e has chan^sd. 

STATUSHErHER t'pdates inforsation at the tap of the screens. 
Tifte, runtiiBf lethcd Rate. 



RunKInE U th€ fittin status task loop. It runs every A sec. 



3 OLDSTATUS ! SHOHSTATUS THEN ; 

4 ; SHC«i1ETH0O B 62 SCTAB flETKODBUF 9 If f.eTHODBUF 

5 ELSE fnotethod • 1+ THEh' MKLEK UHOHERK ; 

6 : STHETHD CHAK6EHETHGD 5 IF FALSE CHAH5EKETH0D ! SHOviftETKGD 

7 THEN ;\ 
B 

9 : STATUSHEACER ( - ) 

le ( PAUSE STTIKE ) PAUSE STRUH PAUSE STHETHD ; 

U : OEVICESTATUS {*) 

12 STELYS STRVLVS STPUft? STfllXER STFHS5 ; 
13 

14 i RUIifilNB ACTIVATE 2603 MS ( Hait for initialization) 

15 BESIK STATUSKEA3ER DEVICE3TATU3 A6AIK ; 
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B 
1 
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3 
4 
5 
6 
7 
B 
9 
18 
11 
12 
13 
14 
15 



131 



e 

1 

2 
3 
A 
5 
6 
7 
B 

IB 
11 
12 
13 
14 
IS 
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6 \ Status Task 
1 

2 141 W THRU 

3 147 148 THRU 
« iSe 352 THRU 

5 153 155 THRU 

6 156 158 THRU 
7 

8 127 129 THRU 

9 EXIT 
18 

11 
12 
13 
14 
15 



- Load Block 

\ Relay status update routines 

\ Rotary valve status update routines 

\ riixer status updat'a routines 

\ Puip status update routines 

\ Pro^raiiable Mssage update routines 

\ Rest of status task 
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\ Status Task - status header strings 

These routines return the address of string for status header 



PSEJT 


V 


PAUSE • 


RDY,5T 


f 


REAi/Y • 


RUN.ST 


r 


RUKKIKS • 


SS ST 


f 


SIHSLE STEP' 


STEPST 


V 


STEPPIK6 • 


BSYJT 


t' 


BUSY ■ 


ERR ST 


V 


EfaOR STATE- 


LDG ST 


V 


L0ADIK5 • 
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5KG«CL0CK displays the tiie of day on the status header. 
SH0;i3TATU9 displays the run status in the header. 



STTIME updates the clock if current ti« is different froi 
Old tiie. 

STRUN updates the run status if current status is different 
frofe whats displayed. 
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0 \ Status Task * Status Header Updates 



\ 



: SHOilCLOCK t n 
SHOKSTATUS ( n * 



C RUN9IT 

C RUHBIT PAUSEBIT 
t RUHBIT 5TEPBIT 



- ) fl 43 SCTA3 (iins) i 
} ICLEBITS AMD 

0 CASE IF P.DY.5T ELSE 
LITERAL 3 CASE IF RUM.ST ELSE 
OR LITERAL ] CASE IF PSEJT ELSE 
OR LITERAL 3 CASE IF STEPST ELSE 
t RIWIBIT PAUSEBIT STEPBIT 

OR OK LITERAL 3 CASE IF SS ST ELSE 
[ BUSYBIT LITERAL 3 CASE IF BSY ST ELSE 

I FLOADBIT LITERAL 3 CASE IF LDS.ST ELSE 

DROP ERft'ST 
THEN THEN THEN THEM TREK THEN THEN 
8 12 SCTAB COUHT UKB>TEP.« ; 
STTl«£ 3TIHE OLDTIME a - IF 3TI«£ KJP - 
OLDTIffi ! SHCKaOCK THEH ; 
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RUK^STnTUS Contains bits which indicate the state of the 

^ control task. 
The loadino bits are used to rKDver fra« errors during a 
load operation, Noraally, the loaiJ operation is coipleted 
and an acknaHle^etent is returned to the user tasfc. But 
if an error occurs, the control tail; loop is exited and re- 
entered by ths error handler. Thess bits are used to • 
detertine how to recover froi the error and to send an 
appropriate error eesssge* 



e 
I 

2 
3 
4 

c 
•/ 

6 
7 

e 

la 
11 

12 
13 
14 
IS 



\ control task status 



\ Task Supoort - Systei Run Status 

HEX 

VARIABLE RUHJTATUS 
\ Bits in RUHJTATUS: 

1 C0H3TAKT RUNBIT 

2 CONSTANT PfiUSEEIT 
4 CONSTANT BUSYBIT 
e CGKSTAHT STEPBIT 

Ifl CONSTANT FLQADBIT 
2e CONSTANT KLGAOBIT 



\ true »*hen running 
\ true Mheh in pause 
\ true nhen ending run 
\ true Mhen in single step tode 
\ true Nhen loading functions 
\ true when loading a method 



DECIMAL 

RUNBIT PAUSEBIT BUSVBIT STEPBIT FLOADSIT + + + * 

CONSTANT IDLEBITS \ use this fiask to test for idle 
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B 

1 

C 

3 
4 

c 

«l 

6 
7 
8 
9 
18 
U 
12 
13 
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OTEfiti is the equivalent EKIT hr tasks without output 
f out i Ties 

Sf">Tcr:tt is Uie equiyaient of SPACE tor tasks without output 
routines. 

raT>TER« is the equivalent of CEKTERED for tasks without 
o'itput routines (CEHTEF.EO is defined in nindOHSl* This 
version jutoiatically truncates strings that are too 
lon^. 



6 \ Task Support - Badcqround task CRT printing 
1 

2 : OTEftK 

3 'SI >TERH DROP ; - * 
4 

5 : SDTERK 

6 ?OUP 

7 IF « BO BL C>T£fi« LOOP 
B THEK ; 

IB ; C£HT)TEP.» 

U im C3 KIH OVER CI 

12 2CUP a - 2/ spheru 

i: m couKT >TERn 

t4 C3 - OUP 2/ - SF>TER« ; 
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These variables are used to iiintain the systei status 
inforaation. For each ites in the systei that needs it's 
status displayed, there will be a variable that indicates it*s 
current state that will be taintained by any operation that 
aHects the itcfl (such as turnino a relay on)} there Hill also 
be a variable lainlained by either the status task (for status 
header inforiationl or the status screen updating softKare 
that cDfitains the currently displayed state of the itet.^ In 
this May the status sottware can coipare if the displayetf* 
stats latches the current state, and update the display (and 
the display state variable) if they dont agree. This allOHS 
far i soiewhit speedier updating loop, since only one or two 
iteis usually change for each pass through the status update 
loop. 



B \ Task Supoort - Systet Status Variables 



CREATE RaAYS 3 fiLLOT REUYS 3 ERASE \ Relays 1-24 
CREATE OLDRELAtS 3 ALLOT OLBJiaAYS 3 ERASE 
CREATE RLYDEFAULTS 3 ALLOT RLYOEFAULTS 3 ERASE 



VARIABLE PBtlSY 
VARIABLE PRATE 
VARIABLE PVOL 
VARIABLE POIP. 



VARIABLE OLSPrjSY 
VARIfiSLE OLOPRATE 
VARIABLE OLDPVOL 
VARIABLE OLDPOHc 



\ I = b'jsy 
\ PuBp floH rate 
\ Puip vcluae 
V Putp direction 



VARIASLE DLDTIHE \ previous tite of day 

VARA3BLE GLDSTATOS \ previous run.status 

VARIABLE CHAHStMETHOD \ true ichen a new iethod is loaded 

CREATE HETHOOBliF KKLEX AUOT \ current wthod file naie 
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Wore syste* status inforaation variables. 



\ Task Supoort - Systei Status Variables 



6 
1 

2 CREATE RV-STAT-TBL 8 ALLOT \ Rotary valves 1-4 

3 Fj-Z-STAT-TBL B ERASE 

4 CREATE RV-DEFAULT5 4 ALLOT \ Rotary valve initial positions 



5 4 RV-OEFAULTS 
t B RV-OEFAULTS 2 
7 

S VARIABLE «XTI«E 
9 VARIABLE WXPVIH 
IB VARIABLE MXOUTY 
n VARIABLE HXBUSY 
12 

13 VARIASLE MPMSS 

14 VARIABLE FPttSC 
15 



C! 4 RV-DEFAULTS 1 ♦ CI 
♦ C! B RV-DEFAULTS 3 * CI 



VARIABLE OLDflUIWE 
VARIABLE CLOMTPW 
VARIABLE OLOrtWUTY 
VARIABLE CLBnXBUoY 

VARIABLE GLOffTiSB \ 
VARIABLE OLBFPnSB \ 



\ nixing tiie 

\ nixcr poHer setting 

\ Kixer duty cycle 

\ 1 = lixcr is on 

Method iessage pointers 
Function eessage pointers 
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TKssE iessaje toVens are used to coniunicate betHeen the user* 
^ aad the coritrai tasks* Messages sent to the control task 
consist of a co^aand token lro« this list| and a pointer to a 
5-ririC. p-: t?xt string i£ used to pass filenjtes tc the file 
load coacands, and possibly to pass a FORTH coaiand string to 
c (yet uftderined) coMand interpreter. All other cofifliands 
can send a HULL pointer. 
Each coaeand sent to the control task will be followed hy a 
response token and a test string pointer indicating success or 
failure upon trying to execute the CDSsartd* An ACK response 
Hill send a null pointer, which can be ignored; Hhils a KAO: 
re=por«se will send 5 pointer to an errcr tessa^e which should 
Mc presented to the user. 



8 \ Task Support - Message Tokens, Load Block 
1 

2 \ Messages to control task: 

3 J CONSTANT STRT/STOP \ start or stop running* 

4 2 COHSTAKT PfiL'S/CGKT \ pause er, continue running 

5 5 COKSTAfJT ISTEP \ do just one step 

b 4 C0H5TAKT KLOAO \ load a lethod file 

7 5 CCKSTANT'JKLQAD \ load a function file 

8 6 CONSTANT CTLR3T \ reset the control task 

9 7 CONSTANT tCTLCnCS \ nuiber of defined control coHsnds 
IB 

U \ Responses froi control tast: 

12 \ A? CC«3TfiHT ACK \ positive acknoHUyeMfit 

13 \ Bfl CONSTANT KAK \ error f 

14 UB 123 THRU 
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Each •fiessage* consists of a 8 bit token, and a 16 bit string 
pointer, 

S£HI)_KS6 Kaits until the sessage buffer is eapty and puts the 
given Cissa^e in the biiffer* The asssage is taken by another 
task, 

GcT^HSB reioves any tessage i.n the given tessage buffer 

iTid eiiptics the buffer to allcH another sEEsage to be placed. 
tlSSynlT Hiits for a srSEige to appear and then returns it- 

The first byte of these sessage structures contains a eessage 
cods (8 if no iessage Halting), bytes 1,2 are pointer to string. 
TO^CONTROL contains a coeaand for control if byte 6 not B. 
FRO«^COHTRGL contains ths response to a coMand if byte B not fi. 



1 la 

9 \ TasJr Support - Task Coeauni cation Hords 
1 

2 CREATE TO.COHTROl 3 ALLOT \ .cottand to CGfitrtil task 

3 CREATE FRQH.COKTROL 3 ALLOT \ response froe control task 
4 

S : SEN3).KSS ( ptr n a — ) BE6IH PAUSE DUF C3 6= UHTIL 

h SiiAP OVER C! 1+ ! ; 

7 

e : GET.KSB ( a — ptr n) DUP >R 1+ 3 I C; R> 3 -ERASE ; 
9 

le : MSEHfilT ( a — ptrn) BEGIK PAUSE CUP C3 UNTIL SET.KSS 
II 

12 : CTL.ASORT 

13 1 FRQK.CCNTROL SEND,KS6 flSORT ; 
14 

15 
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CI contains screen offset for typing to screen. 

SCTAB positions CI to line, col of screen 

)CRT 'types" text to the screen without using FQRTH's output 

routines, (useful for background tasks that dont have output 

routines defined.} Text is in inverse video. 
HERn saie as >CRT but in noraal video, 

if Start nuiber foriatting for output. 
Fortat buffer is belOM the TOP user variable (ref FORTH scr 751 
1} Finish nuiber foristting, gets address, count. 
:e3 Converts one deciial digit and one linutes digit m - 59) 
(•ins) For«ats and prints the given value in the folloHing 
foriat: 16:32 Used to display the tiie of day. 
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8 \ Task Support - Background task CRT printing 

1 VARIABLE STAT-ATTR HEX 736 3TAT-ATTH ! HECIKAL 

2 : SCTAB ( 1 c — ) S«AP 8S t + 2? CI ! ; 

3 : >TERH ( adr u - ) 

4 2? CI 3 OVER CI +! DUP ROT + SKfiP DO 

5 COP C3 STAT-ATTR 3 OR I CRTSEG E! U 

6 2 4L00P DROP ; 

7 HEX 

8 : UKD>TERH ' * . 

9 STAT-ATTR ) )R IBB STAT-AHR ! >T£R« R> STAT-AHR ! ; 
IB OECIKAL 

n \ : SEXTAL 6 BASE ! ; 

12 : {I ( - ) TOP PTR ! ; 

13 : 1} td — a c> 20R0P PTR i TOP EVER - ; 

14 V : :6a CECINAL i SEXTAL f DECIMAL SS HOLD ; 

15 \ : Uins) ( n ~ ) 8 (t sBB I I 1) UfiO>TEftH ; 



erfH^OH turns w both ciphasized and double-strike eodes. 
ErtPHJFF resuies norial printing. 
KUJTnTE points to the opposite print tode routine. 
CDR.fiTft stores the current printing attribute. . 

frORH causes printing to be nortal brightness, (the 2S6 is 

replaced by the address of BRIGHT belOHl 
ff\lGKI causes printin-j to be ciphasized and double stryck. 
Given the nert char's attribute, BRIGHTNESS Nil] Hip the ; 

printer into the proper print lOde if the attribute is 

different fro# the previous char's. 
.Crfft prints a character, replacing a null Hith a blank, 
J.CKfifl fetches the char and it's attribute froi the screen 

and prints it. Mote that screen »e«ory is in different segment 



e \ SKAPSKOT Hords ° 

1 KS6 EMPH.OH A C, 27 C» 69 C, 27 C, 71 C, 

2 MSG EMPH.OFF 4 C, 27 C, 78 C, 27 C, 72 C, 

3 HSG UNOL.ON Z C, 27 C, 45 C, 4? C, 

4 MSG UUDL.OFF 3 C, 27 C, 45 C, 4B C, 

5 VARIfiBLE CUP.ATR ' * 

6 : NQRK ( — I 7 CUR ATR ! EKPK.OFF UHDL JFF ; 

7 ; EHPH ( ~ 1 112 cifR.fiTR ! UHDL.QFF EKPK.ON ; 
6 : UNDL ( — I I CUR.ATR ! EMPH.DFF UHDLJH ; 
9 : BP.IGHTHESS '( atr ~ ) OUP 7 = 

le IF KORil DROP 

U ELSE 112 = IF EKPH ELSE UHDt THEN THEH ; 

12 ! 4CHR ( c — ) Oyp 8= IF DflOP 32 THEN EHIT 

13 : i.CHAR I dadr — ) 

14 E3 DUP 255 AND SWAP 256 /( c atr) BRIGHTKESS .CKR ; 



15 46 LOAD 
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8 \ SNAPSHOT - screen printing atility 
I 

iLIKE prints the given line frot screen leiory. Reverse video 2 : ILIHE 11 — ) 
chars Hill be eiphasited. 3 KOR« 68 t 2t DUP 168 + SWAP DO 1 11 3,CHAR 2 +LQQP 

4 

FULLSCR prints the entire screen. 5 : FULLSCR ( — ) 

6 25 e 00 CR I ILIKc LOOP ; 
7 

tSKAFSHOTJ is the co««nd to be executed by the printer task to 8 : (SKAPSHGT) ACTIVATE FUILSCR STOP ; 

print the screen contents. ? 
SHArSKOT sends the coiisnd fro* the tersinal task to the 'grinter 18 : SNAPSHOT TYPIST (3HAPSH0T) ; 
task. II 

12 
13 
14 
15 



;6a 
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L 

3 
4 
5 
6 
7 
B 
9 
18 
U 
12 
13 
14 
IS 
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^ 

Thii Is the Function Editor that is u«ed to edit user deHned* 
^functions itritten in FORTH. It can 4I50 be used tc edit any 
general tent file, including parateter files and Hethod files. 

This editor is based on the FGRTH Inc. fucntion ^ey editor found 
Oft Screen 72 of the Level 3 Source disk. It has been ecdified 
to use the output HindoMs of S3iple prep, and uses the prep 
file systes for ail disk I/O. 



\ set true to exit the editor 



15 

e V Text File Editor - Load Screen 
1 

2 VARIABLE EOHT 
3 

4 74 4 iORIVE LOAD 

5 16 LOAD 

h 75 4 +DP.IVE tOAD 
7 17 22 THRU 

e 

9 
16 
11 
12 
13 
14 
15 
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9 \ File Editor - Function key table, cursor type 
1 CREATE 'KEYS 53 ALLOT 'KEYS 5fl ERASE 



: 'FUHCTIOM ( k - a) 59 - 2t 'KEYS + : 
: ;K < k) : LAST J 3 CFA 2* SKAP 'FliKCTIOH ! ; 
: FliXTlOii ( Ic) sap 59 S4 tJiraili IF 
ELSE DROP THEH ; 



I riitin'TTn** '^rvrniTr 



h 

7 

6 KEI CREATE CT 780? , ( cursor type) 

9 
IC 
11 
12 
13 
14 
15 



CODE CHOICE CT 1 tlOV 1 HI 1 ICHS B 1 CT fiOV KEIT 

RGP THEK ; 
; +CLIRSOR ( al 'CURSOR CT 3 cursor ; 
: -CLfRSOR ( al 'CURSOR 7fiB cursor j 
: BLINK 8SS3 CT +! ; 
DtCIKAL 
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LAD is the only reference to disk l/Q. le lessages Hhenever 
of BLOCK, but deals only with file relative block nutbers. 
LAD returns the address of the nth line of the current block, 
fetching it free the disk if necessary* 

CLEL aoil any other Hord which lodif ies the text on the screen 
calls FUPOATE to tark the current disk block as lodified. 
TUB FUPDATED block nill ultisatly be nritten out to the disk 
Mhen that block's buffer needs to be reused by BUFFER, either 
by accessing other disk blocks, or by the file CLOSE operation 
Hhen exiting the editor. 

The directory and disk allocation inforiation are updated Mhen 
the file is dosed. 



\ File Editor - Line operations 



LAD ( n - a) 
CLAD ( - a) 
<AD3R { - a) 
COLS ( - n) 
CUO. ( n) 



V 

1 : 

2 : 

3 : 

4 : 

5 : 
6 

7 : 

8 : 
9 

le : 

11 : 

12 : 
13 

14 65 :K -LIHE 

15 ho :K -BLOCK 



C/L t SCR 3 FELOCK * : 
LIKE LAO ; 
CLAD COL 4 ; 

C/L COL - ; : LIKES ( - n) L/S LIKE - 
DOP LAD C/L BLANK FUPOATE 8 SWAP (601 



C/L SPACES ; 

.LINE <AODR COLS >TYP£ ; 

.BLOCK LINE LIKES DUP IF 1+ THEH S DO DUP 0 CVLR (GO) 
LAD C/L >nP£ I* LOOP DROP ; 
xKL ( n 0) SSAP LAD DUP ROT + C/L <CnOV£ FLtPDATE 5 
C/L iHL ; 
C/L REBATE xH ; 



(ADDR COLS BLAKK FUPDATE COLS SPACES ; 
-LIKE LIKE LIKES fl DO 1+ DU? CLFi LOOP CROP 



KLDN ( n) 
HLUP ( n) 



RAH OWGINAL 



ICS 
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ISTHELP is the uisk screen nuiber of the first helpscreen, 

♦HELPS is the nuifaer of defined help screens. 

HaPARRAY contains help screen nuibers for each i^jor systw 
screen. The Bth entry is reserved far general systei help. 
Each of these help screens ii i "chapter" heading, Mith further 
help5cre«ns available by usin^ up or donn arro*4 fceys. 

SllBOECT points to one of the chapter screens in HELPftRRfty. 

KtlPSCR is the current help screen t. 

BLK>SCR displays a Qiven disic block as text, 

KELPSUBJ selects a help chapter based on oiven screen nusber. 

riHQHELF gets current screen and selects the right help chapter, 
advances +-n chapters frot current chapter and shows help. 
Used for pa^ino through help subjects. 

^HSCR advances +-n screens fros current help screen. Used to 
'flip* pages of help screens. 
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H,HQK£ returns user to original help screen keyed where he is. 

h'_PGUr pa^es to next help subject 

imn ' previous 

H_UP pi^es to next help screen 

H OH ■ oreviovs ' 

HELPKEYS is the function key table lor help screens. 
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nap displays the helpscreen keyed what the user is doing 
<Hhit systet screen is displayed), allocs pageing through 
the helpscreens, and wits ^cr undefined key before 
redisplaying current user screen. 



e \ Help Screens - H^P Screen support 

1 3U CONSTnNT ISTHEIP 

2 ? CONSTANT IHELPS 

3 CREATE HELPARflAY 

4 fl ( reserved) C, 4 ( filer) C, 7, ( print) C, B ( status) C, 

5 VARIABLE SUBJECT 
h VARlftBLS HELPSCR 

7 : BU>SC?tK i scrl ~ I aS 8 fl TAB U a DQ 18 TAB W 
B BLOCK 1 M t ♦ 6A >TYP£ LOOP DROP ; 
9 . ,H£LP { — ) HELPSCR 5 ISTHELP ^ BLK>SCRH ; 
IB J HEIPSUW ' serf — ) DUP SUBJECT ! HaPARRfiY + C9 HELPSCR ! 

11 ; F{HDH£LP ( — ) SCR* C3 HaPSUB-J ; 

12 \ : ♦SUBJ ( n —I SUBJECT 3 * 8 KAX ISCf:HS 5 m HELPSUW. 

13 \ -HELP 

14 ! ♦HSCR 1 n ~) HaFSCR ? ^ « KAX IHELPS RIK HaPSCR ! .HaP 
.15 136 187 THRU 
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B \ Help - Function key table 
1 

2 : H HOKE FINDHaP .ELP 

3 \ : H P6UP 1 +SUBJ ; 

4 \ : H.PGDH -I ♦SUBJ \ 



5 : H,UP I ♦HSCR 


• 






0 ; h'd« -I +H3CR 


• 






7 








6 CREATE RaPKEYS 








? ( 68} B 




f B 




IB ( 84) e 




, 8 


f B , 


U ( 66) 6 


B 


, e 


t 0 f 


12 t SO ' H^HOHE 






i 8 , 


13 (98) ' 8 


8 


1 B 


1 B , 


14 ( 94) a 


8 


f ' tl-OK 


1 B , 


15 t 9fl) fi 


8 


t 8 


, ' SHAPSKQT , 
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a \ Help Screens - HELP 
1 

2 : HELPIHFO SaECTIQK BOX 

3 Help Keys: * 

4 pgt^ te;'^^^^ * ^ 

5 PgDK Page ' CR 
h Hote This Subj * CR 

7 PrtSc Print Scrn • CR 

8 Esc Exit Help • j 
9 

IB : HELP t - ) 

U STAT-OFF »€KU-(1FF 

12 HaPI»e^O KELPSWE BOl FIHDHaP .lELP 'FKEYS a 

13 CM KaPKEYS 'RCEYS ! BEBW KEY -FUHCTIGH? UNTIL 

14 'REYS ! mm MIHOW 

15 'SCREEK 9 6 'SCREEN i EXECUTE ; 



FORTH, Inc. Proprietarv 
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fliTBuSV* When true, the printer is busy and can't be used by. 
arto^her' task, 

^rPRPriT) prints all the blocks in the currently open file. 
(DFRINT) prints the disk directory an the printer, 

DG^FfJ sets the printer busy Uag and executes the ^iven 
print routiftB. It Haits for printer idle before returning. 

fPRiNT pro«pt5 the user for a filenagfi, and sends it to the 
printer. 



OPfilKT querys the user before printing the disk directory on 
the printer. The directory is printed In detailed fcrtat. 



e \ Printer Screen - Load Block 

1 VARIABLE PRTBUSY 

2 1 (FFRINTI TYPIST ACTIVATE FLIST FALSE PRTBUSY ! STOP ; 

3 : (DFHIKT) TYPIST ACTIVATE .DIR FALSE PRTBUSY ! STOP ; 

4 • ' 

5 : OO.FRT ( a — ) TRUE PRTBUSY'! 

6 r Busy..,* ,HS5 EXECUTE BE6IN . PAUSE PRTBUSY i B= UKTIL 

7 r Done" ;«3S ; 
8 

9 : FPRINT V Enter File to Print: • FILEHAKE IF 1+ FOPEH 

18 IF r File not found" .ERROR EXIT THEN ['1 (FPRIHT) 

U Da.PRT FCLOSE THEM ; 
12 

13 : DPRINT V Print the disk directory? (Y/MP YES? IF 

14 DETAILS 3 1 DETAILS I C'3 (DFRIMTJ OOJRT DETAILS ! TKEK 

15 18? lie THRU 
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c \ Printer • Menu Labels 
I 

Here are the cocaand labels that appear an the printer screen. 2 : POIRTIT ,F' Directory' -H* Print File Directory* ; 

3 : FFILTXT .F' File " .H" Print a Disk File' ; 

4 

5 

o 

7 

S 

9 

16 
11 
13 
13 
14 
15 



B \ Printer - Screen Definition 
1 : FRKTJROC STAT-GFr CLS ; 
2 



3 \ f 1 


proc 


text 


char 


A DEFSCRK PRHTJCR 


PRKT.PROC 


5 ( e ) 


ST/STP 


STRTTIT 


8 


6(11 


PS/CHT 


PAUSTXT 


6 


7 ( 2 ) 


DPRIHT 


POIRTXT 


d 


8(3) 


FPRIKT 


PFILTXT 


1 


9(4) 


BEa 


EMPTYa 


e 


Ifl ( S ) 


BELL 


EdPTYa 


6 


11 ( 6 ) 


BEa 


EHPTYa 


e 


12 ( 7 ) 


HELP 


HELPTXT 


h 



13 
14 
15 
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B \ Filer Screen - Load Block 
I 

F.DEL proipts the user for the filenaie to delete and deletes 'it 2 s F oa ( - 1 V File to Delete?: ' FREKAKE IF 1+ FDELETE 
if passible. 3 IF File not Found' ,ERftOR THEN THEN 'SCREEK aEXECUTE ; 

4 

S ZZ 4 +DRIVE LOAD \ Loid disk Initi'alization 
6 

f.FKT «ill foriat a diskette in drive B. IHITIALIZE actually 7 j F.FHT (-) f Erase all data on diskette? tY/K)' YES? IF 
fortats the dist (erasing any data), IKITBAT initializes the 8 r Insert" diskette in drive fl. Press return when ready' " 
block allocation table, and IHITDIR initializes the directory. ? KEYPftOaPT 13 = IF V FORKATTIHS...' .KS6 INITIALIZE 

U IKITBAT INITDIR FLUSH V Done* .HSG THEN THEM ; 
11 

12 79 86 THRU 

13 EXIT 
14 

15 



4QQ 



79 



e 
1 

2 : 

3 : 

4 : 

5 : 
6 

7 
8 
9 

IS 
U 
12 
13 
14 
IS 



\ Filer - rtenu Labels 

RKKTXT .F' Renaie • *H' Change a File Haie' ; 
CPYTXT ,F' Copy " .H' Copy One File to Another* ; 
DELTXT .F" Delete ' .H* Delete a File" j 
FRKTTIT .F* Foriat " .H' Kake a Slant Disk for Files' 
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8 \ Filer - Screen Definition 

The filer screen displays the disk directory. t : FILER PP.QC 

2 5TAT-DFF CL3 1 DETAILS ! SHOHOIR fl DETAILS ! ; 
3 



4 \ ft 


proc text 


char 


5 DEFSCRK FILER SCR 


FILER PRDC 


6(0) 


ST/STP STRTTXT 


e 


7(1) 


PS/CHT PAUSTIT 


fl 


8(2) 


BELL RHttTXT 


r 


9 ( 3 ) 


BaL CPYTXT 


c 


U ( 4 ) 


Fja DELTU 


d 


U ( S ) 


F.FltT FRHHIT 


i 


12 ( 6 ) 


BELL EHPTYa 


1 


13 ( 7 ) 


HELP HELPTXT 


h 


14 






15 
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S.^HLQAO causes the control task to load a function file. 
It profipts the user for a fiUnase and sends a load coitand and 
the filert3«e pointer to the control task. 



8 \ Status Screen - Load Blocic 
1 

■ 2 : SSTEF t J HULL ISTEP TO,COKTROL SEKO.HSG ; 
3 

4 : S.FHLOAD ( - ) T File to Load?: : FILEHWtE IF U 

5 F*KLGfiD TO COKThOl SEND KSS THEN : 



7 73 74 THRU 
B EXIT 
9 
18 

n 

12 
13 
14 
15 
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8 \ Status - Hsna label procedures 

1 : PF:KTTU .F' Print ' 

2 .H" Print Utility' j 

3 : KTHDTXT .F' Methods • 

4 .H' Create or Kodify a Method' ; 

5 : LQADTXT ,FV Load " 

6 .H' Load a Kethod to Run' ; 

7 : SYSTXT .F" Systea ' 

8 ,8' Access to core Systea Functions' ; 

9 : FILETIT .F' Filer ' .K' Kanage files' ; 

IB : ISTPTXT .F" ISte? ' .H' Step Through the Procedure' ; 

U : EETRTXT J' Editor ' ,H' Edit Text Files' ; 

12 EXIT 

13 

14 

IS 



B \ Status - Screen Definition 

1 s STfiT.PROC 

2 STAT-OK? HOT 

3 * IF CLS STAT-0?! STAuiS-BKB TKEM ; 
4 

J \ fl proc text char 
6 OEFSCRK STATJCR STAT.FRflC 



7 ( 8 J 


ST/STP 


STRTTXT 


8 


8(1) 


PS/CHT 


PAUSTXT 


8 


9(2) 


SSTEP 


ISTPTXT 


1 


18 ( 3 ) 


SJNLOAO 


LQADTXT 


1 


U ( 4 ) 


FILER JCe 


FILETXT 


f 


12 ( 5 ) 


PRKT icft 


PRHTTXT 


P 


13 ( 6 ) 


FEDlf 


EDTRTXT 


e 


14 ( 7 ) 


Hap 


HELPTIT 


h 



5 



IS 
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PP.EVSCR puts the link to the previous screen into i screen 
descriptor. This used after the 2 screens are defined to 
resolve the fornard relerer.ces. PREVSCR THIS PREV 

^ This screen re=alves the forNard references in the screen link 
pointers. Load this blocf: after all the screens have been 
loaded. Add the links for all screens that are defined in 
the 5Yste«. These links are followed when the user exits 
a screen. The linfcs point to the screen to Veturn" to. 
Note thjt the Status screen is th? hote screen, and points 
to itself. 
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8 \ Screen Support - Resolve forward references in Screens 
1 

2 : PREVSCR ( — ) ' 2* ' S^n? ! ; 

3 ^ . 

4 \ this screeri previous screen 

5 PREVSCR STAT JCfi STAT JC?. 

6 PREVSCR FILER SCR STfiTJCR 

7 F-REVSCfi PRHT JCR STftT.SCR 
8 

? F0R6ET PREVSCR 
Ifl EXIT 
11 

i: 

13 

14 

15 



4Q6 



8 
1 

2 
3 
4 
5 

7 
8 
9 

IB 
11 
12 
13 
14 
15 
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0 

4 

S 
6 
7 
B 
9 
18 
U 
12 
13 
14 
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^ These definitions are being teiporarily used to display 
siiuUtcd "screens' until actual screens are built. 



\ Screen Support - Fate screen displays U TEMPORARY U 

328 CONSTANT OUflKYSCREENS 
DUJtKrSCFiEHS CQNSTfiHT STSBLK 



DbTiMYSCRtHNS U 
DUttKYSCREENS 2+ 
DUKKYSCREENS 3 + 



7 DUrtflYSCREEKS .4 



COKSTnKT MTHOBLf: 
CONSTfiHT PRTRBLK 
COMSTAHT SYTHBLK 
COHSTAHT FLRBLK 



9 

u 

12 
13 
14 



PSTAT5 ST3BLK ELK>SCRN 

PKTHD MTHDSLK BLK>3CRH 

PRf'RT PRTRBU BLK>SCRK 

PSY3T SYTflBLK BLK)SCRH 

PFILR FLFiBLK BLK>SCF»H 



\ fake status 



\ 
\ 
\ 
\ 



cethod 
print 
systea 
filer 
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CKO is a function key routine that Hill accept a FORTH coaaand 
froa the keyboard and execute it, returning hack to PREP. 
Characters are echoed on the inputline {line 251 



8 
1 
2 

3 
4 

5 
6 
7 



\ Screen Support - Ca«ani! Interpreter 



CKE ( — 
CLR«SG 

e 24 

SiiERY 



IKTERPRET 



tPfiSE) Z 8 TfiB 

scRK mm : 



9 
10 

n 

12 
13 
14 
15 



e the coMand selector across the eenu. 
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KAT is used to aodify the attribute of screen text without 
ftodifying the contents of the charac 



h 
1 
8 
? 
IB 
11 
12 
13 



HEX CODE (KATJ ( attribute n a - » 

H POP I POP 2 POP 

I PUSH K I HOV 

DISPLAY LOA 0 ES ISS 

BESIK 

26 C, ( ES:) lODS 
• 2 HI 0 HI HQV B STOS 

LOO? 

8 IS SSS C ES LSS I POP 
HEIT DECIMAL 
: NAT ( attribute Inf coif n - ) 
ROT Se t ROT + 2t <NAT) : 
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Use EKPTXCL <or iny untleUned leou (i-ld. 
KELFTIT shoHs the help coiiand field. 

HHICHSTnTC returns status of *ethod fl=tdle. I=p3i:5e, 2*rur,niriQ 

STRTTU shtws the START or STOP comand depending on current run 
status. 



F'AUSlTXT shoHS PnbaE, blank or CONTIi^'E lenu CMiand depending 
on run 'status. 
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e \ Screen support - ST/STP/PfiUS/COWT and coiton (lenu Labels 

I : EttPTYCL * ,H- " ; \ eipty cell ■ 

2 

3 : HELFTXT .F* KEIP • .K* 0 
*, 

5 : STRTTXT t - ) KHICHSTfiTE OUP L'ftSTSTATE 1 

6 IF .F' STOP • .H' Stop Running" 

7 ELSE -.F' START ' 

6 .H' Start Preparation Procedure' THEM j 

9 

10 : PAU3TXT ( - ) HH1CH3TATE DUP lASTSTATE ! 
U e CASE IF EMPTYCL 

12 ELSE 1 CASE IF ,f PAUSE • 

13 .H" Suspend procedure operation teiporarily* 

14 ELSE DROP -F* CQHTIHUE ' 

15 .H" Continue running procedure' THEN THEH ; 
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XF.ST is usEil alter expect, Siailar to RESET in FORTH Mhich 
is un-findahle, 

INFUTTXT gets a text string froa the Iceyuoard and returns the 
address o^ the counted string Icouivt in first byteh 

TXTPRunFT is CfiTcii the duuresa uf i. CDurited string to type as a 
user proipt on the inputline. The address of the input string, 
is returned. 

KEYFRG«?T types a given proopt string on the Mssaee line* and 
awaits a keystroi^e. It dears the protpt and returns the key. 

YES? returns true if user typed a 'Y' or 'y', false otherHisc. 

•ERnCP. types an error string (counted) on the tessage line. 
.K36 types a (counted) tessage string. 
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B \ Screen Support - User Input / Output «ords 
1 

2 : XRST 0 BLK ! fl >IN ! CHT C3 CNT 1+ Zl ; 
3 

A : IKPUTTXT ( — a» PAD 72 BLAKK 58 3 83 ^EXPECT XRST 
5 I «GRD DUP C? If PAS S«AP <CKGVE PAD ; 

: TXTFRflSFT ( ap — ii ) >lK?yruIKE CGliKT tTYFE ( protptl 
7 IKPijnXT 2< ICLIXE J 

B : KEYPROrtPT t a — c ) >IHPUTL1HE COUHT tTYPE KEY 
9 24 ICLIKE ; 

18 : YES? < a — tl KEYPROrtPT DUP 121 = Sf*AP 89 = OR ; 

n 

12 : CLR«38 ( - I K3B0H? 5 IF 23 tCLIKE B RSSOH? ! THEK ; 

13 : ,RS6 ( a - ) aPJlSS >«3fiLIHE 83 SWAP CENTERED I ilSSCN? I ; 
U : .ERROR ( a - ) .«5S ; 

15 



;b9 
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(JLEM? Returns true if the naie length is 2. 

ESC? Returns true if the escape key was the last char typed. 

LEGAL? Returns true if all characters in nau are legal. 

FILEKAKE protpts the user «ith the given string, and processes 
his input. If return is typed nith no chars, or the esc key 
is typed Mith any input, false and no input is returned to 
caller. If any non-legal characters are found, an error isg 
is displayed and user is re-proapted for input. A legal input 
Mill return the address of tlie counted input string and true. 



B \ Screens Support - Input «ords 

1 HEX eCS CGKSTAHT ESC 

2 ! BLEM? I a — I ) CJ B= ; 

3 : ESC? (a — t ) DUP ca ♦ « ESC = 



A I 

e 
J 

6 

7 

fi 

9 
18 
U 
12 
13 
M 



ESC? (a — t ) 
LEGAL? (a — t ) TRUE SMAP CCUKT OVER + S^AP ( t a+n a ) 
DO I C3 21 7F HITHIH KOT IF DROP FALSE . THEN LOOP ; . 

FILEKAKE ( a — 'ni t i f 1 ' 
6EGIH 

OUP TXTPROKPT 
OUP BLEN? IF 
OUP ESC? IF 
DUP LEGAL? IF 
CROP ( input) 
A6AIK : 



20RO? FALSE EXIT THEH 
2DftOP FALSE EXIT THEK 
SKfiP DROP TRUE EXIT • THEH 
V Illegal natel Retype' -ERROR 



£ELL 



13 DECIML 



3B4 
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.TITLE prints the systea title on the top line of the screen. 



.STATUS prints the status line on line 2 af the screen. The 
contents of the fields Hill be updated by the STATUS tiski 



e 

1 

2 
3 
4 

5 

6 

t 

/ 

8 
9 

IB V 



of the screen. 



12 
13 
14 
15 



\ Screen Support - Status Header 



•TITLE 
le 2fl TAB 
12 34 TfiB 
24 32 TAB 



SP le^eOB SAMPLE fREPARATIQH SYSTEK 
VERB.r - * 

hit any key!' KEY ; 



.BANflER display? the status the status header on the top 2 lines 11 \ 



.BAKHER -B B TAB 
UHOERLIHE ' 4 SPACES 
UHDERLIKE 
UHDEPIINE 



• Status:" 
READY • 



6 SPACES TODAY 9 -DATE 
1 SPACES 3TIKE .TIfiE 



S SPACES 



UfiDERLIME 
UKBERLIKE 
NORKAL : 



3B SPACES 
5 SPACES 



Hethod: No Method 



38: 
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fl \ Screen Support - Henu Bar Screen Layout 



1 



KID prints the horizontsl line for 1 cell. 




2 


IBGXTQP draws the top of one cell. 




3 


lECJtHID drans the eiddU line of a box.- 




4 


leOXBTK iake= the bottoi line of a box. ■ 




■ e 
J 


TuFP draws 7 box tops. ~ . > . ^ ' 






cOTIi • bottois 




7 


CVDRS • «iddlE5 




6 


-BAR prints the Nhole aenu bar. 










IB 






11 


-FRAnE builds the sain screen outline: the status header and - 


12 


and an espty cenu bar. s ^^v ; - ; 




13 






14 






15 



.FRAKE ( — I 
FASE .TITLE PAGE .BAKHER 
1 « TAB Ite TOP ! : - 
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CuD is a function key routine that Kill accept a FORTH coissnd 
froft the keyboard and execute itj returning back to PREP. ' 
Characters are echoed on the inputline (line 251 

>C0HTROL Ecflds a cosfiand code and a coiiand string pointer'tb- 
the control tasfc and waits for an acknoMleQetent iessage^ 
Displays an error tessage if not a positive ack.^ 

WTHDCTL sends a couand to the control task iid redisplays the 
start/stop and pause/continue eenu fields to show neH coifiand 
selections- ( The cosaands depend on the current run status) 

ST/Sn* is the start/stop tenu couand, either starts or stops a 
tethod. 

P3/CKT JJ3M?9S a running tethod or continues a paused lethod. 



B 

I 

3 
4 



\ Screen support - ST/STP/PAUS/CONT and coeion Henu Labels 
: >CQKTRCL (an — ) TQ.COHTRGL SEHD.fiSS 
/ FR0K_C0HTR0L'KS6KAIT' ACK = KOT IF .ERROR ELSE DRQP THEk' 

ST/STP C - ) HULL STKT/STOF TO^tQHTRCL SEND "KSB ■ 
PS/CHT ( - ) NULL FAUS/COMT TO'COKTROL SEKd"kSB ^ ; 



6 
7 
6 
9 
IB 
11 



KHICKSTATE' ( — n ) RUH STATUS 9 
C RUNBIT PAUSEBIT OR 1 LITERAL' AKD 
SHO-COHTROL I - ) 
OUP Fn« = HOT 
IF B CELLFLG ! 

12 VARIABLE LASTSTATE 

13 : HEH3TATE? ( - ) ^ 

14 HHICHSTATE LASTSTATE * = HOT KEKU-OK? 9 AKD 

15 IF e SHO-CQNTROL I SHO-COHTROL THEH : 



THEH .cat 1 CELLae ! 
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/CELL Size of Henu Bar cell in bytes. 

'PAR i£ the line nuiber of the lenu bar. 

KELL positions cursor at beginning of «enu cell for the given 

function. . 

-CELL print* the label for a lenu cell by executing the 2nd 
iddress in the function table. 
fiSBQK I13GGFF turn the selection inforiation on and off, 
CELLOFF prints the ce^l label with norial video (white on 
black). 

CELLON prints the cell Ubel in reverse video. 
.NENU fills the tenu bar outline with the text fields defined 
in the screen pointed to by 'SCREEN. 



8 

1 : 

2 : 

3 : 
4 

5 : 



8 
9 

10 

a 

12 
!3 

M : 
IS 



\ Screen Support - Menu Cells and Labels 
)CELL I n - II ct ) /cat t 'BAR SKAP ; 
.CELL ( n - ) DUP )C£LL ITfiB )FUHCT 2* 3EIECUTE ; 
.BAR 'BAR i- 8 tTAB 79 ^SPACES 'BAR 8 tTAB 79 tSPACES 

CELLOFF ( - ) 

[ HEX ] lea C DECIMAL 1 FnlJ )CELL /CELL I- NAT ; 
,K£KU ( - ) 

1 MEHU-ON?'! 

UNDERLINE .BAR NORMAL 

e CELLFL6 : 8 0 DO 

I FnSa = IF 1 CELLFLG ! THEN 
I .CELL e CELLRB [ 

LOOP 1 CELLFLS ! ; 
KEHU-OFF I - 1 

e MEHU-OH? ! .BAR : 



3B ! 



61 



HES3CREEH switches the display to a neH screen. 



tSCnUS^ is increeentcd by- each new screen definition and used as 

the screen 10, Contains the nuiber of defined screens. 
The screen ID is used by HO.P to display the right help screen. 
C€FSCRn is a cc-ipiUr norc? that creates a Screen data structure. 
The structure consists of an index (8., 7) of the currently 
selected function; a pointer to the previous screen; a pointer 
to a procedure to execute when this screen is selected and dis- 
played; a unique screen ID nusber (screeas arc nuihered se- 
quefltially Froa 1 to n as they are defined); and S function and 
8 function entries, each, containing three entries: the address 
of a function to execute, the address of a tenu label displayer, 
and a coMand character that Hill execute the function. 



\ Screen Support - Screen Data Structure Definition 



) 



\ point to new screen 

\ print the net* tenu 

\ execute the screen proc 



3 
I 
2 
3 
4 

c 

h 
1 

B 

9 VARIABLE ISCRHS 
16 

CEFSCRN ( — 1 CREATE B , ( functJ 
8 , ( link is filled in laterl ' , ( screen proc) 
1 tSCRMS +! tSCRHS 9 C, ( screen ID«) . 
8 8 00 CC0HPILE3 ( ' , ( function) ' , ( text! ASCIK 



NEKSCREEN ( 'screen - 
OU? 'SCREEN 3 = NOT 
IF DUP 'SCREEN ! 
.MENU 

4 ♦ 3EXECUTE 
aSE DROP THEN. ; 



\ nuiber of defined screens 



11 
12 
13 
14 
IS 



c, 



LOOP DQ£S> { ~ I NEKSCREEN 



383 

DOJUNC USES given index to fetch function pointer and executes 
it. 

<>FUNC loves the highlighted selector left or right on the tenu 

bar. *n is right, -n is left. 
+FUHC toves the selector- to the right. .The selector wraps 

around if in the rightiost position. 
-FUNC loves the selector to the left. The selector loves to the 

rightiost position if on position 6. 
SELECT executes the function pointed to by the current function, 

index in the current Screen pointed to by 'SCf^N. 
DESELECT exits the current term and goes to the previously 

selected lenu. 

CHAR/FH coipares a given character to the function characters 
in the current screen and executes the function it Matches. 
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B \ Screen Support - Menu cell selection words 



I 

2 : 

3 

4 

c- 

J 

6 

7 

B 

9 
16 
11 
12 
13 
14 
IS 



DOJUHC ( n 
OFUKC ( n 
CLRK36 
+FUNC , 
-FUNC 
SELECT 



) CLRISSB . >FUNCT JEIECUTE 
) 



CELLOFF 
I — ) 
( — ) 
( — ) 



DESELECT ( ) 



Fn« * 7 AND DUP Fnll .CELL 

I omz J . 

-1 OFUNC ; 
FntJ OO.FUNC ; 

CLRilSfi 'SCRN 2+3 . HENSCEEEN 



CKfiR>FH ( c — ) 8 e DO DUP 1 >FUNCT 4 + C3 
IF IDOFUKC LEAVE TKEK LOOP DROP i 



3-7 B 
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This ttidule contains the definitions that lanage the Saiple 
Prep screens* 



e \ Saiple Prep 
1 

2 71 LOAD 

3 S8 59 THRU 

4 67 6B THRU 

5 63 64 THRU 

6 70 im 

7 65 66 THRO . 

8 132 139 THRU ' 



185 LQAE 
69 LOAD 
IS LOAD 
78 LOAD 
13 198 LOAD 
U 72 LOAD 
\Z 84 LOAO 



9 
IB 
11 
12 



Screen Support * Lead Block 

\ Words for changing attributes directly 

\ Screen flaintenance 

\ user input/output . 

V Screen Maintenance ' 

\ Cotfiand Interpreter 

\ ST/STP/PAUS/COHT and cciion Menu Labels 

\ Status screen background 

\ help screen support 

\ iaie screen displays It TEKPGRARY It 

\ editor 

\ filer screen 

\ print screen 

\ status screen 

\ resolve forward references in screens 



379 
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Pointer to current Screen data structure, 

'SCRK returns the address of the current screen data structure. 
Fn» returns the address of selected function nutber, 
FrirS returns the currently selected function nuefaer. 
Fni! s teres the ctirrsnt functicn .lusbsr. 
SCS# gets the address of the current screen ID nuaber. 
/FUHCT returns the address of an entry in the current screen 
table '.pointed to by 'SCREEH) for the given function nu»ber- 

FCHAR returns the ccMand character for the given function 
nuabsr fros the current screen. 



1 

T 

4 

c 

6 
7 
B 
9 
18 
11 
12 
13 
14 
15 



V Screen Support - basic tools 
VARIABLE 'SCFXEM VARIABLE CELLaG VARIABLE MEKU-OH? 
16 CCKSTAHT /CELL 23 CDNSTAKT 'BAR - 

: >IKPUTLIK£ 24 0 UAB ; : >HLPLIKE 22 IG tTAB ; 
>«SGLINr 28 B tTAB ; VARIABLE KSGQrt? 



•SCRK 

Fnl 

Fa» 

Fnl! 

SCRi 

>FUHCT 



( — a ) 
( — a I 
< — n 1 
( n ~ ) 
( — n J 
{ n — 
5 t ( /entry) 7 
FCKAR ( n — c) 



•SCP£EM 
•SCRH 
•SCRN 3 
•SCRH 
•SCR« 
a ] 

+ ( header) 
)FU»CT 4 + 



6 ♦ 



•SCRK 

ca 5 
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MSSrLG if true, diseUy selection eessaoe on line 23. 
>nSSLII{E positions cur=ar at coluen S of the help line. 
:>IKFUTLIKE puts the cursor on the last line of the screen. 
U^ARBH types spaces to center folloning text. 
RHARGK fills reest of line with spaces to dear old text on line 
CENTERED types the text at address 'a' centered in a field sz 
chars «ide. 

•KEY prints the coatand char of the current function. 



dotH* prints text centered on Message line. Refer to fORTH's 

dot' definition on screen 86. 
-f coipiles a string to be printed outside the »iindo«. 
.C coipiles c string centered on an 88 char line. 
.H' coipiles a string to be printed centered on the proapt line 



59 

3 \ Screen Support - Itessaoe and Prospt Forcatting 
I 

2 : LKAR6N ( sz a — ) C; - 2/ tSPACES 

3 : FJIAREN ( sz a — ) C5 - DUP 2/ - tSPACES j 

4 : C£HTEF£D ( S2 a — ) 20UP LHARBN DUP CDUHT tTYFE RttARGK 
5 

6 : dotF' ( — - ) 1 ?R3 COUKT 

7 caLFLG 3 IF INVERSE aSE UKDERLIKE THEN 

8 tTYFE mmi ; 

9 : dote ( — I 88 I ?R3 CEKTERED ; 
18 : dotH- ( — ) 1 ?R3 CELLFLS a 

11 IF >KLPLINE 68 SWAP UHDERLIHE CEJaEREO HORttAL 

12 aSE DROP THEN ; 

13 : .F- COMPILE dotF' 34 STRING ; IHKEDIATE 

14 : .C- CCKPILE dotC" 34 STRIKE j IfltlEDIATE 

15 : .H' COMPILE dotH' 34 STRING ; IMMEDIATE 



1711 l/\M 1 ctrsrs rsrhm T-r \ * 1 — c.^^ 
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P€JO finds the nth printable directory entry. Used for 
'pigeing" the directory listing on the screen. 



^ contains offset to the first valid directory entry to print. 
KOHE If true, no entries were printed. 
(DIR) prints n valid directory entrys starting at PG in the 
foraat selected by OETftlLS, 



,B1R prints every directory entry (TESTIKB)* 



B \ File Systei - Directory Display 

1 : PG TO ( n — fll U -l SMfiP « 00 

2 1+ ( ptrl DUP 'ENTRY C3 IF 1 ELSE 8 THEN 

3 OVER fiAXFlLES I- = IF LEAVE THEK +LO0P ; 
4 

5 VARIABLE P6 

6 VARIABLE MOKE 

7 : (DIR) ( n ) .HEADER TRUE HOME ! PS 3 PBJO S^ifiP 8 DO 

8 DUP MAXFILES ' IF LEAVE 8 ELSE DOP 'ENTRY C3 IF 
7 FALSE KGHE ! CR DUP .ENTRY I ELSE 0 THEK 

10 SWAP 1+ S«AF THEK ♦LOOP DROP ; 

n 

12 : DIR .HEADER KAXFILE5 6 DO I B> I 16 «C0 6= AKD IF KEY DROP 

13 THEM 

14 CR I . 1 .£KTRY LOOP ; 



424 
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poup dccreftcnts page by the current window height. 

pydn advances Pb oy HinaoH size if tnere xs ■ore to display. 



SHOtiDIR iaices a MindoK box on the screen, displays .the files, 
and alloHS pageing up or down in the list antil a key is 
pressed. 



3 \ File Systeft - Directory Display 
I 

2 142 CO«STAHT UPKEY 

3 158 CONSTANT DN^XY 
4 

5 : poup ( - ) P6 3 «HEIGHT 3 - fl KAI PB ! ; 

pgdn I - ) MQHE 3 8= IF P6 3 KHEIBHT 3 + ttAXFlLES «IK 
FG '! the?; : 



6 
7 
B 
? 
IS 
11 
12 
13 
14 
IS 



SKCSOIR ( - ) 8 PB ! DETAILS 3 IF HaPSIZE 
ELSE SELECTION THEK BOX 

BEGIN CIS 8 8 TAB KHEIBHT 3 (DIRl m DU? UPKEY = IF 
DROP pgap FALSE aSE DH^IY = IF pgcin FALSE ELSE TRUE 
THEK 'THEM UNTIL «OPJ: HIKDC« ; 



42; 
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F/P nucber of files printed per pa^e. 

.DIR is used to print a disk directory on the printer. 
It advances to the top of a page, prints a header and prints 
up to F/P file entries. 



8 \ File Syste* - Directory Printing 

I 33 COKSTAHT F/P 

2 

•DIR ( — ) 

8 ( entries printed) KAXFILES » DO 
DUP 8= IF PAGE .HEADER CR I* 
I 'ENTRY C3 IF CR I .ENTRY 1+ 



3 
4 

e 
tl 

6 
7 
B 
9 
18 
U 
12 
13 
14 
IS 



THEN 
THEK 



DUP F/P » IF DROP 8 THEN 
LOOP DROP 

CR CR FREECKT 22 SPACES . .* Free blocks* CR 



15 \ File Systei - User file coiftands 
1 

2 : NflKE ( — a ) 32 TEXT PfiD ; • 

3 "t tlU I \ TESTING HQROS 

4 : KAKE i --- > NAME FCREATE DUP '0> IF 1 = IF 

5 already exists" ELSE / directory full" THEN 

6 ELSE DROP THEM j 

7 : OFEH I ~. ) HAtlE FOPEK 8> IF / can't find' THEH r 

8 : CLOSE ( ~ ) FCLG3E J 

9 : DELETE ( — ) mi FDELETE »< IF / can't find' THEN ; 
16 

11 EXIT 

DELETE rewves a file fm the directory, Ko file *ay be open 12 : KULT-LOAD 
tihen this cciAsnd is ased. 'OaETE six' ' 13 >IK 2f >R >G 8 >IK 2! 

14 STATE 3 IF 1 ELSE INTERPRET THEM 

15 R> R> >Ifi 2! DECIKfiL ; 



KAhE gets the filenaie frofi the input and puts it in PAD, 
«AtX 9t\-^= a new file and Usves it open. ."HAKE XTT" 

OFEJi* opens an existifta file for access, 'OFEri XX:' 

aOSE closes file access, updating file inforcation, "CLOSE' 



421 
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e 

taiST) types the contents of the given block froi the current 1 
open file. 2 

3 
4 



FLIST types ail the dIocks in tne current open file, 

cai:£=£ FGFiTH to interpret fro5 ths dist file ( this is 
the fiorial loading process). Kested file loads are ok- 



IKCHjEE can be used in a source code file to cause another file 
to be •included* or loaded. Use: IKCLUDE XY2ZY 



e 

9 

u 

12 
13 
14 
15 



\ File Systec - Utilities 
(FLIST) ( nJ -OPEN? BCT 3 HIN 8 KAX 
File: • FILEN7RY KKLEK TYPE Block: • 

CUP . 16 e DO CR I 2 U-R SPACE DUP FBLaO: 

I 64 I + 64 >TyPE LOOP CR 

EOF 3 IF EHD OF FILE" THEN SCR i ; 

FLIST ( -) BCT 3 8 00 1 3 HOD 8= IF PfifiE CR CR CR CF: THEfi 

i (FLIST) CR CR CR L03P ) 
(LOAD) ( 'nt — J OFFSET 3 >R 6 OFFSET • 

Ft 3 >R FPTR 3 >R BCT 3 >R EOF 3 )R UPDATED 3 >R -1 Fl 

FOFEM 6= IF BCT 3 8 DO I uthBLK LOAD LOOP 

ELSE I LGADERR +1 THEH 

R> UPDATED ! R> EOF \ R> BCT \ R> FPTR I R> Fl ! 
R> OFFSET ! ; 

INCLUDE ( - ) KAKE (LOAD) : 
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These wrd print the contents cf a directory entry. 



.EKTEY prints the directory entry for file n on one line. 
Fofiat of directory depends on DETAILS. 

.HEAKR prints s heading for the directory catiand. 



1 : 

2 ; 

3 : 

4 : 

5 : 

6 : 

7 : 

8 : 
9 

10 : 

11 

12 

13 : 

14 

IS 



\ File 
.KAtlE 
.IBLKS 
.BLKl 
.CRDT 
.CTlttE 
.BCATE 
.HTIHE 
.FTYFE 



Systfifl - Directory Support 
( ft) 'EKTRY KKLEN HFE 



( ft) 'EHTRY IBLKS 4 3 4 U.R 4 SPACES 

( ft) 'ENTRY KJCl ♦ 3 4 U.R j 

( ft) 'ENTRY CRDATE ♦ 3 .DATE 3 SPACES 

( ft) 'ENTRY CRTIKE + 3 .TIKE ; 

( fl) 'ENTRY MATE ♦ 3 .DATE SPACE ; 

( ft) 'ENTRY HTIHE + 3 .TIKE { ' 

( fl) 'ENTRY HYPE ♦ 3 4 U.R SPACE : 



.ENTRY ( f I) DUP >R .KAHE DETAILS 3 IF SPACE I .FTYF-E 
I .3LIC1 I .IBLtCS I :mi I .RDATE I .KTIHE THEN 
R> DROP J 

•HEADER Files:' DETAILS 3 IF 5 SPACES 

Type Blkl Iblfes' 4 SPACES Created:' A SPACES 
Kadified:' THEH ; 
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SCfiNOIR tilces i pointer to i filenate and searches for a tatch - 
to that naie in the directory. H found, it returns a valid 
file number, else it returns -I, 

SHTENTRY returns the next e«pty directory entry for a nen Ule, 

FOUND is used after SCfiNDIR to test for finding a filenate. 
FILEHTPt returns the address of the directory entry for the file 
in F6. 

IHITFILE copies the file pointer and block count into user 
variables and sets the indicator to "file not lodifiedV 



e \ File Syste* - Directory accessing 

1 : SCftKDIR ( 'naie ft ) >R -I KAIFILES « OQ 

2 I 'EKTRY NHLEH J HKLEN -HATCH B= IF 2DR0P I LEAVE 

3 ELSE DROP TO LOOP R> DROP. ; 
4 

5 : GETENTRY ( — fl ) -1 MAIFILES 0 OQ .1 'EHTRY CJ fi= 

6 IF DROP, 1 LEAVE THEN LOOP ; 
7 

8 : FGDMD ( ft — t J U 0> ; 

9 : FILEHTRY ( ~ a ) Fl 5 'ENTRY ; 
10 

11 : IHITFILE ( ~ 1 FILENTRY DUP 4BLKS + 3 BCT ! 

12 BLKl ♦ a PTR ! 6 UPDATED ! ; 
13 

14 
15 
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MAKEFILE constructs the directory' entry for a file, It' 
allocates one block to the new file and sets the ti»s and date 
of creation and lodification. The directory entry will be 
Hritten to the disl. 



FCREATE Creates a new file if it doesnt already exist. The 
nei* file is opened tor reading/writing. It returns 0 ii 
succEssfull, I if the file already exists, and 2 if the'' 
director/ is full. 



97 

0 \ File Systes - File creation 

1 : HAKEFILE I 'naae ft - 1 FREE3LK -1 OVER nBAT! SHAP 'ENTRY 

2 DL«P >R ENTRYIEH 6 FILL I BLKl + I KKLDi MOVE 

3 I I letKS + ! 3Tl«E DUP I CRTIME + ! I KTIKE + ! 

4 TODAY 4 DUP I CROATE + ! I KDATE + ! & R> FTYPE + ! 

5 UPDATE ; 

7 : FCF£ATE ( 'nate — t ) 

B OPEN? DUP SCAKOIR FOUND KOT IF 

9 . 6ETEKTRY WJP U 8> IF 

18 GOJAT SKAP OVER ( fl 'ni ftl MAKEFILE 

11 Fl 1 IKITFILE I UPDATED i 8 

12 ELSE DROP 2 

13 THEN 

14 ELSE DROP I 

15 THEN ; 
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FQPEH opens an existing file for access. It sets Fl to the 
file's directory index, and puts IBLKS into BCT and BLKl into 
FPTR, Returns 8 if successful!, I if file does not exist. 

FaCSE Krites out the open file's new block count if the file 
has been ftodified, and updates the lodification date and tiie. 



FiruETE reioves the given file froi the directory (by putting a 
6 in the first filenate char), and releases it's blocks for 
other files to use. 
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B \ File Systei - Prograi access to files 
1 

2 : FOPEH ( 'naae ~ t ) OPEN? SCANOIR DUP FOUtiD IF Fl ! 

3 GETJAT IKITFILE 6 ELSE DROP 1 THEN ; 
4 

5 : FCL05E ( — ) -QftH? UPDATED 3 8> IF SAVEJAT FILENTRY 

6 BCT 5 OVER IBLKS ♦ ! TODAY 3 OVER «DATE ^ ! JTIME SXAP 

7 KTinE ♦ ! fl UPDATED ! UPDATE RUSH THEH -I Fl ! ; 
8 

7 : FDELETE ( 'nate — t ) OPEN? SCANDIR DUP FOUND IF GETJAT 
18 'ENTRY DUP fl OVER C! UPDATE BLKl ♦ 9 BEGIN DUP VBLK? 

11 m nBATJ fl ROT nBAT! DUP -1 ' UMTIL 

12 2DR0P 8 SAVE.BAT FLUSH THEM ; 
13 



4 14 

♦FREECKT returria the nuiber of free blacks left on the disi:. 
.cAT nriftti the blcclc allocation table. 

IVirS prints the block nuabers that belong to the current file. 
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8 \ File Systei - Testing words 
I 

2 : FREECNT ( — n 1 8 MAIBIKS ISTBLK DO 

3 I nBAT3 * LOOP ; 

4 : .BAT CR FILE* " Fl ? , FPTR= ' FPTR a , / BCT= ■ 

5 BCT a . BAT.BUF EATSIZE DUttF FREECKT . free bits' CR 
6 

7 : LlNf:5 CR TPTR 3 BEGIN OU? 4 O.R nBATS DU? -1 = U?iTiL DR9P 

8 CR ; ' 
? 

13 
11 

i: 

13 
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QPEK? cbort5 if a file is already open, 
-QFEU? aborts if a file is not open, 

'LATEST returns a pointer to the tost recently accessed block t. 
LATEST returns the cost recent hlocfc nueber tnithout update bitl 
FLAGGED te^ts the update bit of LATEST. 

:DRV returns true if the block belongs to drive 6, 

FUPDATE is used in place of UPDATE when writing to- a file. It 

allocates a new block to the end of the file if the Mrl^ten 

ukcfc is not already part of the file. 
rBLGCK reads thr nth block relative to the beginning of the 

current file. 

FBLOCK is ussd in place of ELRCK to access a file block. 
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6 \ File Systefl - File Block Accessing 

1 : OPEN? F« 3 1+ 8> ABORT' file is openl* ; 

2 : -OPEH? Fl 3 B< ABORT" file not open!' ; HEX 

3 : 'LATEST ( ~ a 1 PREV OUP 3 + 4 + ; 

4 : Li^TEST t — blkl ) 'LATEST 3 7FFF AKD ; 

5 ; ?FLABG£D ( — ) 'LATEST 3 8833 AMD IF R> DROP THcK j 

6 CECIKAL 

7 : ?DRV ( — t 1 LATEST 32B < ; 

8 : FUPDATE ( — ) -OPEN? 7FLASSED UPDATE I UPDATED ! ; 

9 : rBLOCK ( rblkt — a 1 FPTR 3 fl= ABORT' fptr=C' 
18 nthBLK DBLOCK ; 

U : FBLOCK ( rblkl ~ a J -OFEK? 8 KAX DUP BCT 3 - 8< 

12 IF rBLOCK 

13 ELSE DROP FREEBLK DUP BCT 3 nALLOCATE 

14 DBLOCK DUP 1824 ELAttK RIPOATE 

15 THEN ; 
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8 \ File Systeii - Directory Structure 
KAXFILES is the rrusber of files supported by the directory size. 1 96 CONSTANT fiAXFILES 
EKTRYLEIi Size of each directory entry, 2 32 CON'STAKT EKTRYLEK 

WSLEN Kutber of characters in the filenais. 3 11 C0K3TAHT NKLEH 

'DIR is the first disk block of the directory, 4 1 CONST AKT 'DIR 

5 ( Offsets into directory entry ) 
ISLKS contains the file block count. Updated at FaOSL 6 11 CONSTANT IBLKS 

BLKl is the first block of the file. Use BAT to find the rest. 7 = 13 CONSTANT BLKl 
Creation date 8 15 CONSTANT CRDATE 

tite 9 17 COHSTAHT CRTIWE 

Hadification date II 19 CONSTANT KDATE 

tiM n 21 CONSTANT HTIffi 

File attributes 12 23 CONSTANT mrPE 

'ENTRY returns the address of the directory entry for file n, 13 : 'ENTRY ( fl ~ a ) ENTRYLEN 1B24 t/WQD 'DIR + OBLOCK ♦ 
IKITDiR initialiics a directory. 14 : INITDIR KAXFiLES 8 00 I 'ENTRY ENTRYLEN 8 FILL UPDATE LCOP 

15 
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e \ SsRple Prep File Syste* - Load Block 
Ft Current file nuiber; directory iridex 4or this file. ' 1 VARIABLE Fl -1 Ft i 
FPTR lirst block o( file. 2 VARIABLE BCT 

8CT Huiber of blocks in file. 3 VARIABLE EOF 

EOF B = not end of file, 4 VARIABLE UPDATED 

^ UFOnTED FUq indicates whether file hoS written to or not, 5 VARIABLE DETAILS 

DETAILS Controls directory printiny: 8=5hort l=lDnQ foriat h VARIAELE LOADERR 

LOADERR Kot zero if a file was not fo-jfid Nhen loading. 7 B CQHSTAKT .'BAT 

• 'BAT is the bloct nueber containinq the black allocation table. 8 328 COKSTAHT fiAXBLKS 
KAXBLKS Nuflber of blocks on disk that the file system uses, 9 4 CQKSTAHT iSTBLK 
ISTBLK The first useable block on an espty disk. 10 ISTBLK 21 CONSTAKT RESERVED 

BATSUE is the nuaber of bytes in the block allocation table. II HAXBLKS 2t CONSTftHT EATSIZE 
BAIJUF is a buffer to hold the block allocation table Hhen a 12 CREATE BATJUF BATSIZE ALLOT BATJlfF 3B ERASE 
file is open, 13 BAT.BUF CQKSTAHT FPTR 

. 14 ?1 4P 104 +P THRU \ Load the rest oT the file systes 
15 EIIT 
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D3L0CK is used to read and write only to drive 0. 



GETJAT reads the block allocation table fro* the disk, 

k^nvL vni f*< 4 lcs kite i/n% bu tlic uiah. 



\ File Syste* - Block Allocation Table 
DBLOCK ( blkt — a) DUP B 328 HITHIH HOT ABORT' bU error* 
OFFSET 9 >R OFFSET ! BLOCK ft> OFFSET ! ; 

GET BAT ( - ) 'BAT DBLOCK PISERVED ♦ 

5 BATJLtr RESERVED + BATSIIE RESERVED - KOVE ; 

6 : SAVEJAT ( - 1 BATJUF 'BAT uBLOrr: BATSIIE ftuVE UTDATE ; 



a 

1 
2 
3 
4 



nEAT3 Returns the contents of the ith entry in BAT U block.!), 8 : nBATS I i — blkt )• 2t BAT.BUF + 3 i 
nBATJ Stores n into the ith entry of BAT, 9 : nBAT! ( n i — ) 21 BAT.BUF + I* ; 

INITBAT creates an wpty block allocation table on the disk, 16 : IKITBAT BAT.BUF BATSIIE ERASE I BATJUF ISTBLK It -t FILL ) 

U SAVE.BAT FLUSH j 

nthBLK returns the block * of the nth block of a file, or -U 12 CODE nthBLK -1 I 2 KOV I POP - FPTR B KOV IHZ IF 

13 BESIK 0 2 CMP B= IF II SUB aSE B B ADO ' BATJUF I 8 

14 ADD B « KOV V ) B HOV I DEC THEN 6= UKTIL THEN 

15 e PUSH NEU 



V8DI? abcTts if the block number is invalid, 
FPiEBLK finds the first unallocated block on the disk. It 
aborts if the disi: is full. 



EHOBLK larks the given block as the end of file block in the 
BAT, 

ALLOCATE adds the Qiven block to the end of the current file. 



OFJILE deteriines if the given block is already part of the 
current file; returns true if so. 
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B \ File Systea - Block Allocation 
1 

2 : VBLK? ( blkl) -I KAXBLKS MITHIK KOT ABORT" bad blkr ; 

3 : FREEBLK ( — blkt ) -I HAIBLKS ISTBLK DO 

4 1 nBAT? B= IF DROP I LEAVE THEK LOO? 

5 DUP fl< ABORT' disk full' ; 

6 : PPTR B SWAP ?DUP IF 6 DO nBATS LOOP TH£« ; 

7 : nALLKATE 

8 PPTR DUP flBATJ 3 PICK nBAT! nSATI 1 BCT *1 

9 SAVE BAT ; 
IB : nOEALLDCATE 

n PPTR DUP nBAT? DUP nSATJ ROT oBAT! 

12 6 SNAP nBAT! -I BCT ♦! SAVE BAT ; 

13 : OF FILE? ( blkl — t 1 )R FPTR J BE6IN DUP VBLK? 

14 DUP -i = OVER 1 = OR KOT KHILE r.BATJ REPEAT R> = 
15 



V' 

JAlHm stores the Mindax parateters, clears the MindoH, and 
places the cursor at it's upper left corner* 

eOX is the saae as above, but riraws a bo: around the 
specified windoH and takes the HindcH 2 characters ssaller 
in both height and. width. 

KQRK The Mort windOM is the full width screen between the 

status header and the Aenu bar. 
FULL uses the entire screen, 

SELECTIOK is the snail window on the right side used ior 

Selecting things. 
KIDEfilR is used for full directory listings. 
HELf'SIZE is the hslp window. 



e \ Hindows - Hindowing 
1 

2 : mm ( xl yl w h ~ ) 

3 KHEIGHT ! HHIDTH ! Yl ! 11 ! B B (TAB) ; 

3 : BSX ( xl yl w h — 1 

6 wiNDOK mmx e b (tabi ; 

7 ' . 
B \ HindoH Types: 

9 : KORK fl 2 8B 17 \ use all these as prefixex to 

IB : BKS fl 8 BB 24 ; \ KIHOGH or m i.e: 

11 : SELECTION 67 2 13 17 ; \ "BKB SIKDQtC 

12 : KIDEDIR 14 2 £6 17 ; 

13 : KELf^SIIE B 2 6i 17 ; 
M : EOITIHS 6 2 67 17 ; 
IS 
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These constants contain the addresses of the non-windowing 
output routines. Used when disconnecting the windowing 
functions, or writing directly to the screen, 

tTYPE types chars to the un-tindowsd screen- It duplicates 
the cede {uufid In scr 73 cf LcVcI 4 listing. 
( 1933 is address of (type) ) 

UAB positions the cursor on the un-windowed screen. 

<t?1IT prints a char to screen without using windows, 

tSFACE outputs a space directly to the screen, 

t SPACES sends n spaces, 

tCLIKE clears the given full screen line. 

lEXFECT expects n chars to addr and echoes to full screen. 
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BIKDGKQFF restores FORTH' s screen output routines. 



KINBQHON connects FORTH to the window output 



HIHDOa? displays the current window paraieters. 



legal Valve' 
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8 \ KindOHS - Full screen outout 

1 'TYPE 3 C0K3TAKT [TYPE] 'EXPECT a CQIiSTANT CEXFECT] 

2 'PAGE a CONSTANT CPAGE3 'TAB 9 CQKSTAHT [TAB] 

3 'CR 3 COHSTAKT CCR] 

4 CODE ITYFE (an — ) HEX 

5 0 POP PTR U) POP 3 8 OR B> IF 8 CTR U) «0V 

6 e c; yj adc ityfe: t s kgv * execute u jr.p thek next 

7 DEC1«AL 

B : tTAB ( — ) CTABl -.EXECUTE ; 

9 : lEHIT ( c ~ J 'SI ITYPE DRCP ; 
IB : tSPACE ( — 1 ,32 tEMIT ? . 

11 : ISPACES ( n — ) EEBIH ?AHY NHILE mPE REPEAT ; 

12 : tCLIHE ( 1 — ) 168 t 86 BLANKS ; 

13 : lEXPECT (an — I 'EXPECT 3 >R lEKPECTl 'QFECT ! 

14 EXPECT R> 'EXPECT I ; 
IS 
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B \ Hindows - nindowino on / off 
I 

2 : KINDOMFF ( — ) 

3 [TYPE! 'TYPE i tCRJ 'OR ! CTAB] 'TAB 1 CPAGEl 'PAGE 

4 CEXFECT3 'EXPECT ! ; 
5 

6 : KIMDQ«OH ( — )... 

7 C'3 (TYPE) 'TYPE ! C'] (CR) 'CR ! C'3 (TAB) 'TAB ! 

8 C'] (PAGE) 'PAGE ! CI (EXPECT) 'EXPECT ! ; 
9 

18 : KIHDQW? ( — } 

11 CR XI, Yl: • X13 . SPACE Y19 . CR ,* kIDTH: ' 

12 HIDTHa . (S HEIGHT: ' KEIGHia . CR ; 
13 

14 
15 
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8 \ HindoKS - expect 

•expect' is an exact copy froe screen 83 of Ifvel 4 listing. * 1 CODE expect ( n - n n nl AS5EKBLER 32 t « «0V 

U his to be defined here because the criminal is headerless, 2 1 I SUB I 2 «0V e POP 12 IB B C«P 8= IF , 

and can't be found by KOf;D, (note the vert, bar in front of 3 CHT Ul DEC B «< IF DIT U) IMC B 

CCOE expect in the cource Ustino: it cospiles 5 headerless 4 ELSE PTR U) DEC CTP Ur DEC -2 I I W 

definition) " 5 SHfif ELSE 2 IB I MOV 13 IB 8 CttP 8= NOT IF 

6 PTR Ul W flOV «< IF ( Fn) I I SUB 2 IB CNT U) ADO 

7 179-67 I 8 ADD 8 8 HI XCH6 B STOS 32 I « KQV 

8 ELSE STOS B H PTR U) KOV H 8 XCHG 

9 CNT U) IKC B CTR Ul I«C 8= IF 

18 SWAP TKEH S>IAP THEH 2 CTR Ul r.OV 2 IHC 

11 TKEH THEH TKEH 2 PUSH I SftR 1 PUSH K PUSH KEXT. 

12 
13 
14 

This is the title that is used tor prooraa listinas. 15 \ Sacple Prep Ver 8.1 
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(CRl Hioh level access to (cr). Perforas carriage return. 

(TAB) flGVfiE the cursor poaition to specified line aniS colufin, 
AlluHS only valid wind oh coord in at es. 

!TY?E1 Hes vsctcr fcr 'TYF"E, * 

(PAGE) vector for 'PAGE, Clears Hindo«, hoies cursor. 

lEXPECTl is called frot EIPECT in FORTH to get n chars and put 
thei to an address. PTR, CTR, CHT are setup by EXPECT and 
used by "expect". Advances cursor position. 



8 

I 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



\ HindoHS - Screen output for FORTH 
CODE (CR) ( — ) ' (crl CALL HEXT 



(TAB) { I c — J 

8 HAX KIDTHJ 1- «IH 

8 m HEIGHTS KIK 

(TYP.E1 PAUSE (type) ; 



C.COL ! 

c m \ 



(PAGE) ( ~ 1 as .8 8 (TAB) 

(EXPECT) BEGIH 75 etit (KEY) 
expect eiit tCLtRSOR UHTIL ; 
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These constants define the IBtt characters for drawing boxes. 

JWLIKE draHS a horiiontal line the width of the window. 
KSI0E5 draHS the left and right mndoM border. 

4S1DES draws a box around the current screen window. 

DR;«BQX clears the current nindow, draws a border around it, 
and puts the viewport just inside the border. 
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8 \ Windows - Drawfaox 

1 2S3 C0K3TAKT TD 2G2 CONSTANT BO \ uo and down 't's 

2 285 COKSTANT HI I8i COKSTfiKT VT \ horz, vert bars 

3 281 COHSTAHT UL 187 COHSTfiHT UR \ upper corners 

4 288 COKSTAMT LL 183 COHSTAHT LR \ lower corners 

c 

6 : HULIKE ( — ) «IDTH9 2- 8 DO HI E«IT LOOP j 

7 : «SIOES ( ~ ) HE16HT3 1 DO 

8 1 8 TAB VT EMIT I «IDTH3 I- TAB VT EMIT 

9 LOOP ; 

18 : 4SIDES ( — ) 

11 8 e TAB UL EMIT WLIHE UR EMIT 

12 WSIDES HEISHT3 8 TAB LL EHIT HWLIKE LR EKIT ; 
13 

14 : DRAXBOX ( ™ ) 

15 CLS 4SI0E5 I XI +1 I Yl ♦! -2 WIDTH +1 -2 HHEIBHT ♦! ; 
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e 

1 



\ HindoHS - (type) 



^Uype) copies the string pointed to by FTR with length given by 2 CODE (type) '< — 1 H PUSH 



CTF to the screen liindOH st the cursor position- The cursor 
coluan is a-ivanced for each char, and 7CR hIU carriage return 
Hhen it points pdst right edge o^ Hindow. 



J 
4 

5 
6 
7 
S 
9 
10 

n 

12 
13 
14 
15 



I PUSH PTR U) I MOV CTR U) 1 HOV ' '.cursor CALL 
DISPLAY LDA e £S LSS ATTRIBUTE LBA BEGIN 

' ?CF: CALL L0D3 B 5T05 C_COL I«C 
LOOP fl IS S3G C £S LS6 I POP K FOP HEIT 
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e«t puts char frot stack on screen at cursor. 



LtKnDR returns the absQltite 5cr=er. address the specified 

MindCH line« 
BLIKE blanks the specified HindoH line. 



CLS blani:s the current hindoH. 



0 
I 
2 
3 
4 
5 

7 
B 
9 

la 

u 

12 
13 
14 
15 



\ fe'indoHs - Eiit 

CuDE wit ( c — ) 

• 'cursor CfiLL DISPLAY LDA 0 ES LSS B POP 
AURIBUTE 0 QR ' ?CR CAli STOS 0 IS S3S 
0 ES LSB NEXT 

: LINACF: ( I ~ a ) 

Y13 + G6 I + 2t ; 

: BLIKE ( 1 — ) 

LIS'AOR K10TH3 Blf^KS ; 

: CLS ( — ) 

HEIGHT3 1+ B DO I BtIKE LOOP \ 
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COLUWI returns the ninduH coluan of the cursor. (8.. width! 

«CUHSQft toves the cursor by signed aiount. If in coluin 
and the iove is negativei it backs up one line. 



3 \ HindoHS - cursor ftovefient 
1 

2 : 



3 

4 : 

5 

6 

7 

8 

9 
18 
11 
12 
13 
14 
IS 



CGLUKK ( — coll C.COL 9 113 - j 

♦CURSOR ( n — ) 
DUP a< COLUKH 8= AKD IF 

-I c ROW ♦! mm + c COL • 

THEH CCOL+! i 
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U is the CQluin offset to the left NindoH edge (8..n). 
Yi 15 the nutber of lines down froi the top tB*.nl. 
K'^IOTH ccRteins the f of chars across the window. 11. .79) 
h'HEIBHT is the height of the HindOH in lines' (0..2<) 
C_ROH is the absolute screen line I of the cursor, 
C.CQL is the absolute screen coluin of the cursor. 

CRTSEG is the screen leaory segtent address (88338/ 

REVERSE «ake£ subsequent screen output reverse video, 
HQRrtnU restores output to norsal video. 



e \ HindoHS - Saiple Prep Kindowinq for IPH lonochrofe screen 
1 V Current windoK paraieters 



2 VARIABLE II 

3 VftftlABLE Yl 

4 VARIABLE mm 

5 VARIABLE MHEISHT 

6 VARIABLE C.RO« 

7 VARIABLE C COL 



: 119 II 9 ; 

m Yi a ; 

HEIGHT? HHEIGHT 3 



9 n ( BBH) CONSTANT CRTSEG 

le 

11 HEX 



12 
13 



UKDERLIHE 
INVERSE 
MORKAL 



m ATTftlBiiTE I 
ATTRIBUTE ! 
m ATTRIBUTE ! 



7E}8g 



DECIMAL 



U 34 +P M +P THRU V Load the rest of Kindows 
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scroll scrolls the current screen nindoH contents up one line. 



S \ WindoHE - Screen scrolling 
1 

2 CODE scroll ( — 11 PUSH 

3 3 PUSH KaiDTH 3 «QV Yl ^ «aV 83 i « KQV K «UL 

4 XI e ADD fl fl ADO 8 «B 2 KQV KKEIGKT 2 HI KOV B 
G PUSH DISPLAY LDA 8 DS LSS fl ES LS8 8 POP BESIK 

9 U HQV UB t 8 ABO 3 1 KOV I PUSH 3 1 riGV 
REP MOVS 0 POP I IB 2 ADD I « 2 HI SUB 
I IS SSS e DS LS8 B ES LSS 



6 
7 
S 
? 
18 



C= UKTIL 3 
I POP RET 



'cursor returns the screen address of the cursor in register 1 1 CODE 'cursor ( — 1 
fiultiplies cursor fcm by BO, adds caluAn, and aultiplies by 2. 12 Q PUSH 03 f H KOV 

13 e 8 ADD a V nov c 

14 

'CURSOR is high level access to 'cursor. 15 CODE 'CURSOR i — n ) 



C.ROK LDA 
POP RET 



^ m C COL B ADD 



•cursor CALL if PUSH KEIT 



3:j 



clear erases screen aeaory painted to by K with count in 
reg, I 

BLAfiKS takes a count and screen address and blanks n chars. 

Icr) puts cursor in colutn % of the vieHport windoH, and 
advances the cursor line I. If line I is beyond bottoi of 
the HindOH, it scrolls Nindan contents up 1 line and puts 
cursor on Ust line, Retarns cursor address in M. 

?CR Tests cursor colutn position. If off right edge of nindOM, 
it does a carriage return. H is preserved for (type). 



6 \ ^lindons " Carriage return 
1 CODE clear HERE DISPLAY LDA 



e ES LSE ATTRIBUTE LDA 



REP ST05 
CODE BLANKS 



0 

4 

5 
6 
7- 
8 
9 

le CODE ?CR 
11 
12 
13 
14 
15 



8 15 sse 

(an — 
~ ) 



8 ES LS8 
) 1 POP 



RET 
« POP 



( clear) CAU KEIT 



CODE tcr> ( 

XI e «ov e C.CQL hov 

C.flOif Q CMP B( IF 
IF • scroll CALL THEK \m 
mm I KOV ' clear CAa 



CJQIf IHC Yl 8 «0V HHEIGHT 8 ADD 
C.ROK HOV KHtlGHT B nOV 0 8 OR ' 8) 
• 'cursor CALL « PUSH 
H POP RET 



I ~ ) 
e PUSH XI LDA 
e< IF 1 PUSH 
IS PUSttS • 
1 FOP 2 POP 



KXIDTH 8 ADD B DEC C.COL 8 CrtP 
2 PUSH I PUSH ES PU3HS D3 POSHS 
(cr) CALL IS POPS OS POPS ES POPS 
1 POP 



mn e pop ret 



4-0 6 
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>L(V-5'ER converts any alpha key to Iwercase for cotparison Kith* 

^ the function coiiand characters. 

FREP is the sain entry point for the Saaple Prep Systsfi. 

It p5rf(]''fi5 any recjiiirec! initializatifln and then interprets 

sifiijie letter cofcasnds iroft the keyboard. 



e \ Sdiple Prep - Initial i ration, nain Entry Point 
1 HEX 

: >LOt;£R ( C — c) DUP 41 SB HITHIM IF 26 OR 
OECIKAL - 



S 
6 
7 
8 

\l 
\\ 
12 
13 
14 
IS 



THEK 



PREP- I ~ ) 
8 DRIVE BKB KiNDQX KtHQQHQH 
.FRfi,M£ C'3 STATJCft 'SCREEK ! 
V\ FKEY34 'FKEYS ! 
KORK t\W^ (F-ASE) 
CCfiTRCL SYSTEK PSTfiTUS RUNNING 
0 'SCREEN ! STAT-QFF STAT.SCR 
BEGIK 

BE31M CTL.KSG? NEKSTATE? 
KEY -FUHCTIOH? ?DU? 

IF )LCWEE CKAR>FN THEK 
AGAIN : 



BKEY? UNTIL 
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-FUtiCTIGH? checks a keyboard character to see if it is a 
function key, executinq it*5 routine if it is defined. ^ 
Returns a false if it was a valid function, true tor the" 
character) othErwise. 



4 

c 

J 
6 
7 
8 
9 
IS 
11 
12 

n 

14 

15 



\ Function key execution 
HEX 

VARIABLE 'FKEYS 
: KEYLQfiD ( a ™) 



KEYS + 
99 KEYS C! 



oo 

3A K'EYLOfefi SD KEYLOAD 
FORGET KEYLQAQ 
: -FUKCTIGfi? ( c ~ c : 01 

SUP D ? UHHIN IF fiD + THEN 
DUP SB 9C SITHIK 

IF 82 - IX 'FKEYS 3 ♦ 5 ?DUP 
IF EXECUTE a ELSE I 
THEK rriEM ; 
DECIKAL 



I + C! LOOP DRflP ; 
99 KEYS 53 ♦ C! ( esc=?7) 
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1 

2 : CTL,KSS? ( - ) 

3 FROK CONTROL C3 

4 IF FROM.COHTROL GET.tlSS 

5 DROP .nS6 

6 THEN ; 
7 

8 
9 

11 

12 
13 
14 
IS 



0 275 826 

402 Gl 

fl \ Function Keys - Load Black 
I 

PEXIT staps the other tasks, cleans up, and exits back to FORTH 2 : PcHT 
It sivculd proupt the user tief ere cKi ting. 3 r Exit Systet? (Y/H)' YES? 

4 IF HORRAL '^IHSfln'OFF FA6E ' . ' 

5 CONTROL HALT PAUSE 

6 PSTftTUS HALT PAUSE 

7 Qun- 

8 THEH ? 
9 

IS 83 LOAD 

11 EXIT 

12 

13 

14 

15 
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8 
1 
2 

T 

5 

7 
8 
9 
18 
11 

12 ■ 
13 
14 
15 



0 \ Function Keys - Sacple Prep function key table 

1 

2 

FKEYS is the function key execution table used by the lain 3 CREATt FKEYSl 



sasple prep routine* Defined function keys have routines 


4 ( 88) • ST/STP 


, • PS/CHT , 


' DID 


, ' PEXIT , 


defined in this table. 


S ( 84) 8 




8 


I' 8 1 




6 ( 88) B 




8 






7 ( ec) 8 




8 


, ' DESELECT , 




B ( 98) ' -FUMC 




' 4FUKC 


, • SELECT , 




9 t 94) 8 




8 


1 1 f 




18 ( 98) 8 


, • DESELECT , 


• SaECT 


, ' SNAPSHOT , 



11 

12 
13 



15 



S£7-,fS^K36"sets lethod ieE5a^e to the address of in line 

V stAinq. 
« 

Frt?;?: sscf funcUon iesad-ic lo the ad'Jresa ot in iine 
string. 

&RKT-STR caiipiieE a sharp brakst deliJite-J «str.,.» 
string fro» the input streas into the dictionary. 



B \ Prograiiable lethod and function eessages - basics 
I 

2 : S£T-«P«SG ( - ) 

3 I HPH3G • ; 
4 

5 : SET-FPflSS ( - ) 

6 I m FPKS6 ! ; 

7 

8 : BRa-STH 

9 -1 m +! « HQRO DROP 62 STRIHS ; 
IB 

11 

12 23B LOnD \ Kessa^e turnoff cowands 

13 

14 
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fiESanSE compiles « iess^e and fiakfes it the tethod iftssage at 
execution ti«e. 

rcSSA6£-QFF turns off the «ethGd aessi^e, if any. 

FrtESSABE CDiipiles a sessage and vates it the function sessage 
at execution tiie« 

FUESSAGE-OFF turns oH ths function message, if any. - 



B V Proyrasatile tetiiod and function eessagss - top level 
\ 



X. i 

Z 
4 

5 : 

6 

7 

8 : 
* 9 

la 

11 : 

12 

13 

U 

15 



KEBSASE ( - ) 

COKFILH SET-«P«SS BRKT-STR ; IHHEDIfiTE 

KESSAGE-OFF { - ) 
3 JIPHSG ! ; 

FHESSABE ( - ) 

COMPILE SET-fPflSe BF:KT-STR ; IhfiEDIflTE 

FMESSfiSE-QFF t - ) 
8 FPKS6 ! ; 



;60 
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6 
7 
8 

le 

11 

12 
13 
14 
15 



RV*NAhE-TBL is a table pointers to strings that contain 
tue ritfiies for the rotary vavle positions. 

CD-KAKE-iai is a table oi pointers to strings that contain 
the nases for the contact device positic^ns. 

These load CGfiSsnds cospile rirK strin-^-r and put their 
addresses in the given tcble. 



6 
9 

IC 

n 

12 
13 
14 



\ Systei configuration tables and load screen 

241 LOAD \ String table generation words 

CREATE fiV-HAHE-TBL 32 ALLOT - • 
CRtfllE CE-HinH-Tt'L 96 ALLOT 

F;V~KAr;E-TEL • LOAD \ Rotary valve naaes 

CD-NARE-TBL * 3BI LOAD \ Contact device functions l-ll* 
CD-NAME-TBL 48 + 3S2 LOAD \ Contact device functions 13-24 



S62 
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I5-PTE is a pointer to the location at which «e cospile the 
string's address. It serves as an index into a table, 

IS-LEN is the required length of the strings that ere being 
ccspiled. 

syntax. Ses the last note in this blcc'c 

C3TRIN6 cospiles a string and places its address into a t«ble, 
advancing IS-fTR for the next string, 

STRINGS coipiles the required nmber cf strings. 

The syntax of usage is: CONFIGURE n t CHARACTER STRINGS. The 
adreHS of the table is given on the stack before starting. 



0 \ Configuration tables - creating string tables 

1 VARIABLE IS-PTR 

2 VARIABLE IS-LEH 
3 



4 

c 

J 
6 
7 
B 
? 
IB 

n 

12 
13 
14 
15 



CONFIEU.=£ 

IS-PTR 1 ; 
CHARACTER 

IS-LEK ! ; 

CSTRINB 

-2 ALLOT -I >IM +! AE WRD DROP 
HERE 2t IS-LEH 3 ELAKK 62 KORD 
IS-LEH 3 OVER CI IS-PTR 3 ! 2 IS-PTR 
IS-LEJi 3 1+ 2+ ALLOT ; 
STRINGS 

Z DO CSTRIN5 LOOP ; 
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5 
6 
7 
8 
? 
16 
U 
12 
13 
14 
15 



300 



8 \ Configuration screen for rotary valve nates 
I CONFIGURE U 13 CHARACTER STRIK8S 



3 Vdlve4 

4 

5 t 

6 2 

7 3 
6 4 
9 

18 valve! 

U 

12 I 
U 2 
U 3 
15 4 



Port II 



Port (2 



<Fill Sprayer > 

< Solvent 12 > 

< > 

< > 

Port f3 



< Satple Line > 

< IC Bypass ) 

< > 

< > 



( To Kaste ) 

< To LC Loop > 

< ) 

< > 

Port 14 



< Sasple Loop ) 

< Solvent tl ) 

< > 

< > 
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6 \ Conliouration screen for contact device functions I thru 12 
1 CONFIGURE 24 2B CHARACTER STRINGS 



2 cdl ; 

T 1 


OFF function 


QH function 




1 ; 


<l:SaapIe Loop Bypass) 


<1: Sasple Loop 


c 

J 


2 : 


<2:S64pU Loop Bypass) 


<2: Saiple loop 




3 1 


<3; Manifold - Cup > 


<3: Cup To Haste 


7 


4 ! 


<4: Puip - JlanifoU > 


<4: Gas To Manifold 


8 


r 1 
J t 


( > 


< 


9 


h I 


<A: Fill Gas Reserve > 


<6iE*pty Gas Reserve 


10 


7 : 


<7;Pre5£iiriie Sprayer) 


<7: Spray 


11 


8 1 


< > 


< 


12 


9 1 


< > 


< 


13 


le : 


< > 


< 




u ; 


<11: Vent Cup > 


<11: Pressurize Cup 


15 


12 ; 


< > 


< 
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(I \ Confiouratioft screen for contact device functions 13 thru 24 



6 

7 



2 cdl 

3 — 

4 13 ! 

r • 1 I 

15 ; 
16 i 
B 17 : 

^ 18 ! 

10 19 ; 

11 23 1 

12 21 : 

13 22 ! 

14 23 : 

15 24 I 



mi 24 29 CHAflACTER STRINGS 
OFF function 




OH function 


< 




< 




< 




< 




< 




< 




< 




<16:LC Fill Position > 


< 




<17: 


LC Inject > 


< 




< 




< 




< 




< 




< 




< 




< 




< 


OFF ) 


< 


QH > 


( 


OFF > 


< 


OH > 


< 


OFF > 


< 


0« > 



-^-^T^Ti 1 -1-1 1 




2 
4 

7 

8 -i-i-i-»-»-i-t-*-»- 



4 



8 {«< HELP FOa STATUS SCREEN »» 
1 

2 This is the Systet Status Screen. The display shews the 

3 current state of each systei eleient. 

T 

J Fl is the Start/Stop key. Use it to control aethod operation, 

6 F2 is the Pause/CantinuE key. Use it tG au^pend a rjn. 

7 F3 alloHS a direct cowand to be entered (for debucoirig only), 
e F4 alioKS exiting back to the FGPJH system. 

9 KUtI LOCK causes the current screen display to be copiEd to the 
18 printer. 

U <- -> Keys iove the co*eand selector across the lenu, 

12 Causes the currently selected coeaand to be executed 

13 - or ESC Exits the current Screen. 

14 Type the first character of the cost and naie to execute it 

15 C Hit Any Key to Exit the Help Screens ] 
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e 

I This is second status help screen, 

2 

3 

4 

5 

6 - 
8 

9 . ^ 

11 
12 
13 

14 ^ 
15 



f 



12 



1 This is IMrd status help screen. 

2 

3 

4 

c 

6 
7 
8 
9 

Ifl 
11 
12 
!3 

15 
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This is fourth status help screen. 
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0 

I 

2 
3 
4 
5 
6 
7 
8 
9 
18 
U 
12 
13 
14 
15 



«« HELP FOR FILER SCREEN »» 

The filer provides softs utility couands for ianipulating disk 
files. Files can be copied^ deleted and renmd, and i new dist 
can be foriatted. 

The directory listing of the disfe is displayed. If there are 
tore files than can be shown on the screen at one tiie, you can 
use the page up or page down keys to see thei. 



C Hit Any Key to Exit the Help Screens 3 



1 

- 2 
3 

c 

h 
1 

8 
9 

n 

12 
13 
14 
15 
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S 
1 

3 
4 

c 
J 

& 

7 

8 

9 
IB 
11 
12 
13 
14 
15 
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a «« HELP FOK PRINTER SCREEN »» 

1 

2 The printer utility alloMS files and disk directories to fae 

3 sent to the printer, 
4 

5 

6 

7 

8 

9 
IB 
tl 
12 
13 
14 

15 [Hit Any Key to Exit the Help Screens 3 



